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INI TQUEUE Initialize system job queue file 16-Sep-1984 2 98: 19:3 AX-11 Bliss- 

14-Sep-1984 JOBCTL.SRCJI 
; 1 MODULE INITQUEUVE(ZTITLE do) that ize system job queue file’ 
; 0 IDENT = ‘V04-001' 
; 00 )s 
3 004 BEGIN 
; $06 | 
: Ope PITITILITLILLI LLL LIL TLL LLL LLL LLL LLL LLL LLL LLL LLL LLL) 
3 0 '® * 
3 0009 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
3 0010 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 0011 < ALL RIGHTS RESERVED. : 
: is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 
; '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Lic ENSE AND WITH THE * 
3 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER * 
3 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 '® OTH RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 ¥ TRANSFERRED. : 
: it phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; '® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; :* CORPORATION. : 
Ps . * 
3 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR EL IASEL ST? OF ITS * 
: oe SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL : 
: it ® 

te 


VRE RRA 
' 


'e¢ 
i FACILITY 
Job controller. 


i ABSTRACT: : ; Pee . 
: This module contains the routines that initialize and validate the 
system job queue file. 


ENVIRONMENT: 
VAX/VMS user and kernel mode. 


AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 


PRG BB BB BBE BB EAA NAAN NIAID DINO PONINONUNYDY 2 Ss OO OS OO Os 
NOUS WN (0 OONA UE WN 0 ODNAUE WN (OO ONAUE WN "OO ONOUES WR“ OOMNOUFS Wh 
DOOCOCODOCOCOOSCSCSOSOSOOSOOOSOSOSOSOOOOOCOOOOOOOOCOOOOOO 
SSssss DOOOCOCOCOCOOOOCOCSOOCOCCSCOSCSOOOOCOOCOOCOCOOOCOOCOOOOoOO 
PWN OC ODNAUE WN "OO ONAUS WN —“OOONOULS wn 
wtubtbubabubabababubububibuiehabububabubuiububeiahubuinbuaiaba wham bebneh tiaatadbaaiiadt alpadavatet 


! 
! 
! 
! 
i 
2 MODIFIED BY: 
7 i 
8 ! V04-001 JAK0236 JA Krycka 14-Sep-1984 
bcp Collect more diagnostic information. 
051 i v03-018 KPLO001 P Lieberwirth, 22-Jul-1984 
O36 ! Add COLD_START “CURRENT LIST routine to detect and repair 
05 : SMQ current List corruption, Rework WARM_START nEXIS ING_FILE 
b2e to be tolerant of system failures. 
096 i v03-017 JAK0221 J A Krycka 16-Jul-1984 
05 : Always open the queue file shared (retract V03-013) because 
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INI TQUEUE Initialize system job queue file 7:10:35 AX-11 Bliss-32 V4.0-74 Page 2 

v04-001 14-Sep-1984 9:4 740 JOBCTL.SRCJINITQUEUE.B 2;3 . (1) 

; 8 0038 1! non-shared access effectively disables use of the process-local 

; 9 059 1! 1/0 buffer cache. 

; 0060 1! 

; 0061 1! VO3-016 JAKO219 J_A Krycka 13-Jul-1984 

3 6¢ B06 7! Use the SJC$_BUFFER COUNT and SJC$_EXTEND_QUANTITY items for the 

j- § 0065 1! SJC$_START_QOEUE_MARAGER function fo override default values for 

: «64 0064 1! the MBF and ALQ Fields during RMS operations on the queue file. 

3; $9 0065 1! (These correspond to the /BUFFER COUNT and /EXTEND_QUANTITY 

3 66 p68 : qualifiers on the START/QUEUE/MARAGER command.) 

: 68 0068 1 V03-015 JAKO213 JA Keycks 18-May-1984 

; @& BO? 1! Use newly created LCKSM_NODLCKBLK (no deadlock on blocking AST) 
; 0070 1! option on enqueue service calls that specify a blocking AST 

: 4! ita ! routine that will immediately relinquish the lock. 

Peter - 6073 1! V03-014 JAKO212 J A Krycka 15-May-1984 | 
; re Ope : Examine timer queue on warm start of the job queue file. | 
: 7% 0076 1 | v03-013 JAKO211 4 A Krycka 14-May-1984 
cs > TF 0077 1! Continuation of v03-012. 

im 0078 1! 
: 79 0079 1! v03-012 JAKO210 J A Krycka 10-May-1984 : 
; 0080 1! If this node is not part of a cluster or the job queue file is 
; «Bi 0081 1! not on a cluster-wide accessible device, then reopen the queue | 
;. & 0082 1! file for non=-shared access (SHR=UPI) to avoid having RMS take 
5 o? at ! } out locks on records in the local buffer cache. | 
: 85 0085 1 v03-011 JAKO209 4A Krycka 08-May-1984 oa, | 
: 86 0086 1! Aa JBCS$_STRUCT_LEVEL message if structure level of existing 
; a 0087 1! queue file is incompatible with job controller implementation. 
3 Mey sits : } Also, log diagnostic information in DIAG_TRACE vector. | 
; 90 0090 1 / v03-010 JAK0202 JA Krycka 16-Apr-1984 | 
: 4! 44 : Update selected queue file creation parameters. 
: 9 0093 1 v03-009 JAK0201 J_A Krycka 10-Apr-1984 | 
; 94 0094 1! Use LCKS$M_NODLCKWT (no deadlock wait) option on enqueue service 
; | 69S 0095 1! for the master queue file lock to avoid having the lock manager 
5 38 Boos : declare a deadlock situation. 
: «98 0098 1} v03-008 MLJ0118 Martin L. Jack, 23-Aug-1983 | 
; WW 0099 1! Implement page setup. 

; 100 0100 1! 
; 101 0101 1! v03-007 MLJ0115 _. Martin L. Jack, 30-Jul-1983 | 
3 44 3 } Changes for job controller baselevel. 
: 104 04 1! v03-006 MLJ0114 Martin L. Jack, 23-Jun-1983 

3 19? 8 ! Changes for job controller baselevel. 

; 107 07 1! V03-005 MLJ0113 _. Martin L. Jack, 26-May-1983 

3 18 8 : Changes for job controller baselevel. 

; 110 10 1! v03-004 MLJ0112 _. Martin L. Jack, 29-Apr-1983 

3 a ' : Changes for job controller baselevel. 

: 118 13,1 v03-003 MLJ0111 Martin L. Jack, 20-Apr-1983 

3. (2196 14 1! Correct another problem in warm start. 


BUUNBAHE—_‘Inetat ten erate Job ewe He IERSCHOM 9:40:85 MSDE Ness a? 
1 
1 
1 
| 
} 


v03-002 MLJ0110 Martin L. Jack, 18-Apr-1983 
Correct problem = warm start and missing test for unwind. 


v03-001 MLJ0109 Martin L. Jack, 14-Apr-1983 
Changes for job caneretiae baselevel. 
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v04=0 secant teat 12r8e8=138¢ 99:38:23 


4 
4 


74 
01 JOBCTL.SRCJINI TQUEUE .832;3 
; 126 9127 1 REQUIRE ‘'SRC$:JOBCTLDEF'; 
3; ie 1164 1 
By § 1165 1 
: 4 1166 1 LINKAGE 
: 128 1167 1 L_TREE = CALL: GLOBAL(RTM=10, SQH=11); 
: 129 1168 1 
; 130 1169 1 
5s ts 1170 1 FORWARD ROUTINE 
3 4 ; 1171 1 REFERENCE_ENTRY_NUMBER: L_TREE NOVALUE, 
5 3 1128 1 ENGUEUE: L_TREE NOVALUE, 
=i 1173 (1 TREE: L-TREE NOVALUE, 
3 133 1174 «1 COLD_START_CURRENT LIST: NOVALUE, 
; 136 1175 (1 COLD-START_EXISTING_FILE: NOVALUE, 
: 137 1176 1 COLD“START-NEW_FILE: NOVALUE , 
; «138 1177 (1 WARM_START_EXISTING FILE: NOVALUE, 
: 139 1178 1 INITTALIZE_QUEUVE_FICE_HANDLER, 
: 140 1179 4 INITIALIZE_QUEUE_FILE; 
3 141 1180 1 
; 126 1181 #1 
: 14 1186 1 EXTERNAL ROUTINE 
: 146 1183 (1 AFTER_AST: NOVALUE, 
; 145 1184 1 COMPLETE JOB: NOVALUE, 
: 146 1185 1 DEALLOCATE_MEMORY: NOVALUE, 
> 147 1186 1 DELETE SJH RECORD: NOVALUE 
: 148 1187 1 ENQUEUE_ JOB: L_OUTPUT_2 NOVALUE, 
3 149 1188 1 FLUSH_RECORD: NOVALUE, 
3; 199 1189 1 JOB SCHEDULING POLICY, 
s >i 1190 1 LOCR_QUEUE FILE: NOVALUE, 
5 12¢ 1191 1 QUEUE _MASTER_AST: NOVALUE, 
. 1136 1 READ_RECO 
; 154 1193 1 RELEASE RECORD: NOVALUE, 
3 We 1194 1 REMOTE _BLOCKING_AST: NOVALUE, 
3; 1 1195 1 REWRITE_RECORD: NOVALUE, 
3; 157 1196 1 SCAN_INCOMPLETE SERVICES: NOVALUE, 
; ia 1197 1 SIGNAL_FILE_ERROR: NOVALUE, 
3; 159 1198 1 UPDATE-GETQOI_DATA: NOVALUE, 
: 160 1199 1 WRITE_ACCOUNTING_RECORD: NOVALUE ; 
3 (361 1200 1 
; 1o¢ 1201 1 
s 16 1202 1 BIND 
> 164 1203 1 
3 163 1204 1 ' KBF values for known block numbers. 
: 166 1205 1 : 
; 167 1606 1 SQH_KBF = UPLIT(1), : he 
; 168 1207 1 SFM_KBF= ge ! Initial form definition 
: 169 1208 1 SF X_KBF= UPLIT(3); ! Initial form index block 
: 170 1209 1 
: 171 1210 1 
; \7¢ 1613 1 MACRO 
> 17 1 1 1 ; 
: i ‘$17 : Structure of TYPE parameter to TREE routine. 
; i= 1215 1 B_TYPE= .0,8,0 %, : Expected record type 
s ie 1216 1 V_NO_MARK= -8.1,0 &, ! Inhibit entering in record type map 
; 178 1612 q V_NO_QUEUE= sFetse_® ! Inhibit enqueuing jobs 
: 179 1218 1 VINO-TRAVERSE= 0.10,1,0 &, i Inhibit traversing List 
; 180 1219 1 v~SMO_P2= 0,11,1,0 %, ! SMQ pass 2 
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1 
14-Sep-19 JOBCTL.SR 
ROUTINE REFERENCE _ENTRY_NUMBER(ENTRY_NUMBER): L_TREE NOVALUE= 
44 
! 


i FUNCTIONAL DESCRIPTION: 
This routine notes a reference to an entry number during the cold start 
of an existing file. ; 


INPUT PARAMETERS: 
ENTRY_NUMBER - Entry number. 


IMPLICIT INPUTS: 
SQH - Pointer to SQH. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
EXTERNAL REGISTER 
stat SQH = 11: REF BBLOCK; ' Pointer to SQH 
B11 NUMBER; ! Normalized entry number 


! Range check the entry number. 


i] 
! 
IF .ENTRY_NUMBER EQLU 0 

OR. ENTRY NUMBER GTRU .SQHCSQHSL_HIGHEST_ENTRY_NUMBER] 
RETURN; 


! Normalize the entry number to a bit number. If it Lies in the queue 
' header, set it there. Otherwise, convert it to an extension bitmap 
block offset and bit number and set it there. 


BIT_NUMBER = .ENTRY_NUMBER - 1; 
IF [BIT_NUMBER LSSU~SQH$S_ENTRY_BITMAP * 8 


N 
BITVECTORCSQHCSQHS$B_ENTRY_BITMAP], .BIT_NUMBER] = TRUE 


WINWIWIATOPIPIDNININININININNININININNNNNNINNNID 4 4 2 9 9 9 9 SS 
nll 


BEGIN 

LOCAL 
BLOCK_NUMBER, ! Offset in bitmap vector 
Q: VECTORC2), } Temporary for EDIV 


SEB_N, !' Record number of extension bitmap 


Oi legs V4.0-7 
CJINITQUEUE 
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H 
INI TQUEUVE Initialize system job queue file 16-Sep-1984 AX-11 Bliss-32 V4.0-74 
Marat 14- gen 1382 99: 49:3 JOBCTL.SR RCJINITQUEUE .B 2;3 
; ¢ ! 4 SEB: REF BBLOCK; ! Pointer to extension bitmap 
: 1294 
: 8 ! + aro) ° BIT NUMBER = SQHSS_ENTRY_BITMAP * 8; 
; 28 129 EDIV CREF (SYMSS DATA * 8) BLOCK_NUMBER, BIT_NUMBER); 
60 38 TF -BLOCK_NUMBER LSSU sans” _ENTRY_BITMAP_VECTOR74 
: 6¢ 1300 4 BEGIN 
H 6 1301 4 SEB_N = .VECTO GCSONC SHEL ENTRY _BITRAP VECTORS. -BLOCK_NUMBER]J; 
3 64 1 o¢ 4 IF .SEB_N NEQ 0 
: 265 1305 4 THEN 
; 66 1304 2 BEGIN 
3 67 1302 SEB = READ EBESYNST DATA N); 
3 68 1 Be 5 BITVECTORCSEBLSYM$T_DATA 3; -BIT_NUMBER] = TRUE; 
: 69 130 5 REWRITE_RECORD(.SEB_N); 
; 270 1308 4 END; 
3 71 1309 3 END; 
3 si¢ 1310 2 END; 
s ae 1311 1 END; 


-TITLE INITQUEUVE Initialize system job queue file 
SIDENT \V04-001\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_STORAGE BASE: 
00000 DIAG_TRACE: 


00060 DIAG_COUNT: ss 
000CO0 DIAG FLAGS: : 
000C4 WORK_AREA: a ta 
000FO SNDJBC_COUNT: 
LKB 132 

00174 GETQUI_COUNT: 

.BLKB 40 
0019C SNDACC_COUNT: 

-BLKB 28 
00188 SNDSMB COUNT : va 
00200 DIAG STORAGE END; 
00200 FLAGS: {BLKB 4 
00204 IRAGE Due STSFLG: 
00208 THIS -SYSiD: ; 

9030 ; “BLKB 2 

00210 CUR_TIME: : 
00218 HOURLY _TiME: 

.BLKB 8 


P 7 
age . 


INI TQUEUVE Initialize system job queue file 14-42 Sep-19 10:35 AX-11 Bliss-32 V4. P 8 
v04-001 es 1enee= ihe 89:38:20 | Eobacte SRediniroveue. 642; 3 aor | 


00220 HOURLY_PARAMS: 


~BLK 20 
00234 SYMBIONT_COUNT: 


0055 “BLKB 
00560 QUEUE_ALG: 


LKB 4 ; 

00238 QUEUE -REFERENCE_ COUNT: : 
0023 MBX_MESSAGE COUNT: ; 
00240 mex: -BLKB 4 | ; 
00244 -BLKB 4 | 
00248 MEMORY FREE QUEUES: | ; 
00270 NONAST_worx QUEUE : | : 
00278 BCB_FREE_LIST: ‘ | ; 
0027¢ BCB_ACTIVE LIST: ; 
-BLKB 4 ; 

00280 GOL_FREE_LIST: ; 
“BLKB 4 | ; 

00284 GOL_ACTIVE LIST: | ; 
00288 OPEN_GETGUI LIST: | : 
0028C PROCESS SATA LIST: | 
00290 SYMBIONT_CONTROL : | : 
00294 SPARE_AREA: - : 
002A0 REMOTE -REQUEST. LKSB: | ; 
O02AB QUEUE _FILE LKSB: | 
| ° 

00280 QUEVE_LOCK LKSB: | : 
-BCKB 8 : 

Q2B8 RSP: .BLKB 8 ; 
02C0 JBC -PRIORITY: 2 2 
002¢4 JBC_PRIVILEGES: : | : 
002CC JBC_QUOTAS: | 2 
-BLKB 66 : 

00306 ‘BLKB | F 
0310 JBC UIC: .BLKB | ; 
00314 QUEOE_FAB: | : 
00364 QUEUE _RAB: | : 
-BLKB 68 : 

QO3A8 QUEUE _NAM: | : 
-BLKB 96 ; 

00408 QUEUE _XxAB: : 
-BLKB 88 : 

00460 QUEUE _RSA: 2 
-BLKB = 255 : 


Q0A00 MBX_BUFFER: 

-BLKB 1024 
00E00 VALUE STORAGE -BASE: 
QOEOO ITEM_PRESENT: 

wBLKB 32 
00E20 VALUE -GETQUI BASE: 
0020 VALUE_ACCOUNTING MESSAGE : 
0026 VALUE ACCOUNTING, TYPES: 
OOEZA VALUE AFTER, TIME: 

OOE32 VALUE ALIGNMENT _PAGES: 

OOE33 VALUE _BASE PRIORITY: | 
00E34 VALUE BATCH INPUT : | 
QOE3A VALUE bait OUTPUT: | 
COE44 VALUE_BUFFER. COUNT: 


J 15 
INI TQUEUE Initialize system job queue file 16-Sep-1 :35 AX-11 Bliss-32 V4.0-74 e 9) 
v04-001 14-Sep- 1984 98: 33:23 :40 JOBCTL.SRCJINI TQUEUE .832; 3 vit (3) 
-BLKB 4 
00564 QUEUE_MBF : 
-BLKB | 
0568 ACCOUNTING FABS : , 
00570 ACCOUNTING RABS : ; | 
00578 ACCOUNT FAB At ao | 
005¢8 ACCOUNT RAB A a 
0060¢ ACCOUNT NAR A: ws 
0066C ACCOUNT_RSA_A: 
-BLRB 255 
00768 -BLKB 
0076C ACCOUNT_F AB B: * 
0078C¢ ACCOUNT RAB B: os 
00800 ACCOUNT NAM B: sa 
00860 ACCOUNT_RSA_B: 
-BLRB 255 
0095F -BLKB 1 
00960 DIAG_FAB: | 
-BLKB 80 
00980 DIAG_RAB: Ne 
009F4 MBX_CHAN: | 
-BLKB 4 
009F8 MBX_IOSB: 
LKB 8 
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00E45 VALUE CHARACTERISTIC _NAME : 

QOE4B VALUE -CNARACTERISTIC. NUMBER : 

OOE4C VALUE -CHARACTERISTICS 

OOESC VALUE ~CHEEKPOINT DATA: 

00E62 VALUE_CLI: 

00E68 VALUE_CPU DEFAULT 

QOE6C VALUE_CPU LIMIT: 

00E70 VALUE DESTINATION, QUEUE : 

00E78 VALUE pevite NAME 

OOE7E VALUE_ENTRY NUMBER: 

00E82 VALUE “entey NUMBER _OUTPUT: 

OOE8C VALUE “exten QUANTITY: 

QOE8E VALUE_FILE “COPIES 

OQOE8F VALUE_FILE PADENTIEICATION: 

QOEB3 VALUE_FILE SETUP MODULES: 

OOEB9 VALUE_FILE SPECIFICATION: 

OOEBF VALUE_FIRST T PAGE 

OOEC3 VALUE “FORM. DESCRIPTION: 

OOEC9 VALUE_FORM LENGTH: 

OOECA VALUE_FORM MARGIN. BOTTOM: 

00ECB VALUE _FORR RARGIN LEFT: 

QOECD VALUE FORM MARGIN. RIGHT: 

OOECF VALUE FORM MARGIN, TOP: 

OOEDO VALUE FORM NAME: 

00ED6 VALUE_FORM_ NUMBER: 

OOEDA VALUE “ORR: 

OOEE2 VALUE “Foi SETUP 

OOEE8 VALUE “FORM STOCK: 
-BCKB 
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| 
| 
| 
OOEEE VALUE FORM WIDTH: | 
OOEFO VALUE GENERIC. TARGET: | 
012D4 VALUE_JOB COPIES: | 
01205 VALUE_JOB CIMIT: 
01206 VALUE_JOB NAME: 
012DC VALUE_JOB RESET _MODULES: | 
012E2 VALUE_JOB SIZE MAXIMUM: | 

| 


Mee 


a oi ie 


012E6 VALUE_JOB Size _INIMUM: 

012EA VALUE_JOB STATUS OUTPUT: 

012F4 VALUE_LAST PAGE: 

012F8 VALUE “LIBRARY SPECIFICATION: 

O12FE VALUE_LOG QUEUE: 

01306 VALUE_LOG SPECIFICATION: 

0130C VALUE_NOTE: | 
01312 VALUE -oPéRATOR. REQUEST: 

01318 VALUE_OWNER UIC: 
0131C VALUE “PAGE SETUP MODULES: 

01322 VALUE PARAMETER. 

01328 VALUE “PARAHETER.. 

0132E VALUE_PARAHETER. | 
01334 VALUE _PARARETER_ | 
133A VALUE, PARAMETER, | 
01340 VALUE PARAMETER, | 
01346 VALUE PARAMETER, | 
0134C VALUE PARAMETER, | 
01352 VALUE PRIORITY: | 
01353 VALUE PROCESSOR: 
01359 VALUE PROTECTION: 
0135D VALUE QUEUE 
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INI TQUEUE Initialize system job queue file -Sep-1984 AX-11 Bliss-32 V4.0- 
vousObi re 12 860-198e 99:38:20 Sini 


l Page 12 
AMBCTL SRELING TOUEVE. BS2;3 oe 4S 


01363 VALUE -0uEUE FILE, SPECIFICATION: 
01369 VALUE “RELATIVE. PAGE : 
0136D VALUE RESERVED INPUT_1: | 
0136E VALUE RESERVED. INPUT_2: | 
01370 VALUE RESERVED_INPUT_3: 
01374 VALUE -RESERVED. INPUT_4: 
0137A VALUE -RESERVED_ OUTPUT. 1: 
01384 VALUE -RESERVED. OUTPUT. 2: 
0138E VALUE ~SEARCH STRING: 
01394 VALUE -SCENODE. _NAME : 
0139A VALUE_WSDEF AULT: 
0139C VALUE “uséeent: 
0139E VALUE _usivota: 

| 


2 
013A0 VALUE _STORAGE ~END: 
-BLKB™ 0 


-PSECT CODE,NOWRT,2 


AA: .LONG 1 P 
AB: .LONG Ee 3 
AC: .LONG 


Mnnecceccccw wpvVDU 
COOOnrw src 


we 
oO 
wv 
mm 
=z 
o 
G 
= 
u“ 
VU VPN NINIPNPyPOPY 


j 
| 
| 
” AAC 
-EXTRN AFTER Ast oer. JOB | 

| 

~EXTRN DELETE SJH-RECORD 
~EXTRN aN EVE _JO6 FLUSH RECORD 
*EXTRN OBC SCHEDULING LICY | 
QUEUE _F FICE 

E Queu MASTER_AST 
~EXTRN READ RECORD. cinecnete- RECORD 


-EXTRN REMOTE B 
~EXTRN REURITE™ BRECORD. “SCAN_INCOMPLETE _SERVICES 


Initialize system job queue file 


00:10:35 YAX-11 BLisg=32 v4.0-74 


7 
JOBCTL.SRCJINI TQUEUE .B52;3 


.EXTRN SIGNAL_FILE_ERROR 
ZEXTRN UPDATE-GETQOI_DATA 
SEXTRN WRITE_ACCOUNTING_RECORD 


oS 


0000 REFERENCE ENTRY_ 
QORD 


oooooo°0oo 


OVMOW LHF NOVmMLluil Po 
IN -“WNOMO™MMN MPNRTUAWNOOO 
— 
wr 


nm 
on 


00000000G_ EF 


omomng-9 —-9 NOC OOomMm—9o oO "0-90 
FWDOrvWo wom OB L&M frm VPS won Oo 
b+ + 4 9 0 6 4 4 ¢ 0 0 9 04 eo ee 4 te ef 
Ooooooooooooooo 
OOOCCOCGOOCOCOSOSCOS GQOooooooo 
NOM OMOM ONS DOWNIE PW "DW OVP 


MAS & FEW | | —OOCooo 


Ww 
wn 


Routine Base: 


3; Routine Size: 


NUMBER: 
Save R2,R3 


SP 
NTRY_NUMBER, R2 

R2, 60(SQH) 

3$ 

BIT_NUMBER 

BITINUMBER, #2048 

BIT_NUMBER, 256(SQH), 3$ 
=2048(R2), Q 

+4 


#4000, Q, BLOCK_NUMBER, BIT_NUMBER 
BLOCK_NUMBER, #8 


20 (SQH) CBLOCK_NUMBERJ, SEB_N 
SEB_N 

#1, "READ_RECORD 

BIT_NUMBER, 12(SEB), 2$ 

#1, REWRITE_RECORD 


Be Se Ge Se Se Se Be Se Se Fe Fe Fe Fe Ge Se Be Fe Se Se Se Be Be Be Be 
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INI TQUEUVE Initialize system job queue file 1-4 -1984 2:10:35 AX-1% Bliss-32 V4.0-74 
tO bt . = 12-Sep-19 4 99:49:23 JOBCTL-SRCJINI TQUEUE .B 2;3 


ROUTINE ENQUEVE(SMQ,SJH_N,SJH): L_TREE NOVALUE= 


14 
! 
' FUNCTIONAL DESCRIPTION: ’ 
This routine enqueuves a job during the cold start of an existing file. 


INPUT PARAMETERS: 
SMQ - Pointer to job's SMQ. 
SJH_N - Record number of SJH. 
SJH - Pointer to SJH. 


IMPLICIT INPUTS: 
SQH 


rorororerorory 


COOOMWONNNA~S 
ey te heat — P= er 


Pointer to SQH. 


SBRww Keo 


OOMmoc 
—-OO0on 


OUTPUT PARAMETERS: 
NONE 


Ww MPT) es 


BREE EERE SE BWW eopoponononor 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
MAP 
SMQ: REF BBLOCK, ' Pointer to SMQ 
SJH: REF BBLOCK; ! Pointer to SJH 
ee See 


309 REF BBLOCK; ' Pointer to SQH 


Reinitialize the forward Link. 
SJHCSYMSL_LINK] = 0; 


WAI.NWAINANAN 


WINRIPONINPOPINPINPININID 2 OOO Oe ee 


: If appropriate, enter the job on the hold queue. 
if SHES HOLDING) 


OR .SJHCSJH$V_REFUSED) 
Oe SJH$SV_RETAINED) 


SJH_NP, ! Record number of predecessor of SJH 
SJH_P: REF BBLOCK; ! Pointer to predecessor of SJH 


IF .SMOCSMQS$L_HOLD_LIST] EQL 0 
SMQCSMOS$L_HOLD_LIST] = .SJH_N 


Be Se Se Se Oe Ge Se Be Be Ge Fi Se Be Ge Be Ge Se Ge Se Fe Ge Ge Fe Se Ge Se Be Ge Se Se Se Se Se Ge Ge Ge Ge Ge Se Se Ge Ss Se Se Se Se Se Se Se Sees Se Se Se ees . 
iw 
oO 
Ww 
ee ee a a ee ee a ee ae ee ee ee ee ee ee ee ee ee ee a ee a ee ed dd 
WAIN WNAANAAAAAIAIWAWNAWNAWNNW NAA NW WNWA WANA NNNNAAWNNNNIWAINANANO 
DNASE WN SO ODNOAUE WN 9 OD NAMES WN 0 OONAUE WN 0 OO NAUES WIN SOOONOULS wr 


AIWIWWIWIWIWINIWNIUEPIPIPUNININPIPUPIPONPIPINPIPINPINIDIDINID -32 2 9 9 9 SS SS 
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INI TQUEUE Initialize system job queue file 1b-se -1984 00:10:35 AX-11 Bliss-32 V4.0-74 
v04-001 d 1e-8ep-19 4 99:4 :40 JOBCTL. SRCJINI TOUEUE -B 2;3 
¢ 69 ELSE 
70 BEGIN 
71 SJH_P = hg és ete NP = .SMQCSMQ$L_HOLD_LIST_ENDJ); 
5 te SJH"PCSYMSL_CINK] = .SJA_N; 
6 7 REWRITE_RECORD(.SJH_NP); 
7 74 END; 
8 75 SMQCSMQ$L_HOLD_LIST_END] = .SJH_N; 
9 76 END 
7 
te Enter the job on the pending or timer queue, as appropriate. 
1 LSE 
8 BEGIN 
LOCA 


L 
TIMER QUEUE, 
ry READ: REF VECTOR, 


REF BBLOCK, 
REF BBLOCK; 


True if entering on timer queue 
Pointer to appropriate List head 
Record number of precedessor of SJH 
Pointer to predecessor of SJH 
Record number of successor of SJH 
Pointer to successor of SJH 


JH"P:” 
SJHINS, 
SJH_S: 


! Establish the queue on which the job should be entered and increase 
the reference count. 


IF TIME_GTRU(SJHCSJHSQ_AFTER TIME], CUR_TIME) 


AAA AMAYIMA MNES BEEBE EEE 
WN" OOONAUVUE WN OOONOUSWN—O 


BEGIN 
TIMER QUEUE = T 


WNWAWNAAANAANAAANANWANNANNWNNNAAAWNA 


try tet tee & ERA AEA EE Ss oe ty ee 
MEUM O OONOUESWN—"OOONAUS 


ee ek ee a a ee ee ee ee ee me ee ee ee a a a a dd ad 
PELL LLL LPP PAWN WANNA NANA ANNAN 


PE SNOUT & BANNING ES BBB BE BWI EES BWANA WINANS BPO 
m. 


Be Se Se Oe Be Be Be Se Se Fe Se Se Be BeBe Se Se Be Se Se Ge Se Se Ge Ge Se Se Se Se Se Se Ge Se FH Ss Se Se Se Se Se Se SH S4 Se SH ee SESH SH Ss SHS Se ese Se Beas 


6 RUE; 

6 LIST_AEAD = SQHCSQH$L_TIMER_LISTI: 

oT SmaCSRUSH_TIRER_JOB_COUNT J = . SMaESMQ$W_TIMER_JOB_COUNT * 13 
365 ELSE 
366 BEGIN 
367 TIMER_QUEUE = FALSE 
368 IF .SMQCSMQ$V_BATCH 
369 THEN LIST_HEAD = SQHCSQHS$L_PENDING BATCH_LISTJ 

370 07 ELSE LIST_HEAD = SQHCSQHSL_PENDING PRINT _LISTJ; 

$3 oe SMOCSMO$W_PENDING_JOB_COUNT] =". SMQCSMO$W_PENDING_JOB_COUNT] + 1; 
if i 
375 \s } Check for the special case that the job goes at the end. 

377 14 IF .LIST_HEADC1) NEQ 0 

378 15 THEN 

te 16 BEGIN 

80 17 SJH_S = READ_RECORD(SJH_NS = .LIST_HEAD(1]); 

381 18 IF 

388 19 BEGIN 

83 20 IF .TIMER_QUEUE 

84 $3 THEN TIME _GEQU(SJHCSJHSQ_AFTER_ TIME], SJH_SCSJHS$Q_AFTER_TIME]) 
H ; ELSE JOB_SCHEDULING_POLICY(.SM@, .SJH_S, 7SJH) 

87 26 THEN 

388 5 BEGIN 


INI TQUEUE Initialize system job queue fil 19: $ 4 AX-11 Bliss-32 v4 
445004 sepa pl perl opr 1 eae oo; shia MMBC TL SRETING TOUEVE 69253 


89 SJH SCSYMSt LINK) = .SJH_N; 
90 LIST_HEADCTJ = .SJH_N; 
91 REWRTTE_RECORD(.SJH"NS); 
9 RETURN; 
9 END; 
94 END; 
99 
44 Search for the correct insertion point. 
99 SJH WP SQHSK_RECNO; 
400 SJH .SQ 
401 SJH “NS. =""LI8t HEADCOI; 
40 3 WHITE .SJH_NS REQ 0 
40 4 BEGIN 
04 D SJH_S = READ_RECORD(.SJ'_NS); 
405 IF 
BEGIN 
IF .TIMER 


EUE 
THEN TIME GTRU(SJH_SCSJH$Q_AFTER_TIME], SJHCSJHS$SQ_AFTER_TIME]) 
ELSE JOB_SCHEDULING_POLICYT.SMQ, .SJH, .SJH_S) 


BEGIN 
peti ae RECORD(.SJH_NS); 
EXITLOOP; 


END; 
IF .SJH_NP NEQ SaHsK _RECNO THEN RELEASE_RECORD(.SJH_NP); 
SJH_NP = 3S 


SJH_P = 
SJH_NS = 7 ee 


} Enqueue the job at the correct insertion point. 
if .SJH_NP EQL SQHSK_RECNO 
gt tST-HEADLO] = .SJH_N 


AUEWN (OO ODNAUES WN OOD NAMES WN (OV ONAOUE WN OOONO 


BEGIN 
SJH_PCSYMSL_LINK] = 
REWRITE RECORD(. SJH_N 


END 
SJHESYM$L_LINK] = 
LF: .SJH_NS EQL 0. Then Met _HEADC1] = .SJH_N; 
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00 ENQUEUE:.WORD Save ple dant mcm 
2 VL SJH, R 


€ 000 
55 0c AC 00 0000 MO 
65 D4 00006 CLRL ( 
52 04 AC 00 00008 MOVL SMQ, R2 
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MOVL 

PUSHL 

CALLS 

RET 

MOVL 

MOVL SQH, SJ 
MOVL (LIST 
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INI TQUEUVE Initialize system job queue file 16-Sep- AX-11 Bliss-32 Vv4.0-7 
¥04-001 14- ~tep- 1382 99: 38:3 JOBCTL.SRCJINI TQUEUE. b 2:3 
27 13 00008 13$ BEQL 18$ 
6 OD SODA PUSHL SJH_NS 
000000006 gf 91 F O0¢ CALLS #1, READ_RECORD 
FA ae p i BLBC M mek aOEUE, 14 
009C¢ i 009c)=—s«¢3})sé*1 Bors CMPL 140e 85a LBs 146 tRS) 
eis gere RSM Tek 
0098 = 6«¢5 0098 ¢3 obi doors CMPL 183¢syH_s), 152(R5) 
18 18 O000FB BLEQU 16$ 
of 11 OOOFD BRB 15$ 
53 DD OOOFF 14$ PUSHL SJH_S 
24 BB 00101 PUSHR #*M2R2,R5> 
00000000G_ EF 03 FB 00103 CALLS #3, JOB_SCHEDULING_POLICY 
0B 50 £9 OO10A BLBC RO, 16$ 
56 DD 0010D 15$ PUSHL SJH_NS 
00000000G_ EF 01 FB 0010F CALLS #1, RELEASE_RECORD 
19 11 00116 BRB 18$ 
01 57 D1 00118 16$ CMPL 7 #1 
09 13 0011B BEQL 17$ 
57 DD 00110 PUSHL SJHN 
00000000G_ EF 01 FB OO11F CALLS "RELEASE RECORD 
57 56 DO 00126 17S: MOVL Ate “NP 
58 53 DO 00129 MOVL SJH~S, SJH 
56 63 DO 0012C MOVL (SJA_S), SJH_NS 
A711 O01¢F BRB 13$ 
01 57 D1 00131 18$: CMPL SJH_NP, #1 
05 12 00134 BNEQ 
64 59 DO 00136 MOVL R9, (LIST_HEAD) 
OC 11 00139 BRB 
68 59 DO 00138 19S: MOVL R9, (SJH_ P) 
57 DD 0013E PUSHL SJH 
000000006 EF 01 FB 00140 CALLS #1, “Reunire RECORD 
65 56 DO 00147 208: MOVL SJH_ (RSJ 
04 12 OO14A BNEQ 
04 AG 59 DO 0014C MOVL R9, iia ateee 
04 00150 21$: RET 


; Routine Size: 337 bytes, Routine Base: CODE + 0064 
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INI TQUEUE Initialize system job queue file 18-Sep-19 4 99:1 735 AX-11 Bliss-32 V4.0-74 
v04-0 14-Sep-1984 22:35:40 JOBCTL.SRCJINITQUEUVE .852;3 


ROUTINE TREE(RECNO,TYPE,DEL,P1): L_TREE NOVALUE= 

14 

FUNCTIONAL DESCRIPTION: — 
This routine recursively processes a record tree during the cold start 
of an existing file. 

INPUT PARAMETERS: 
RECNO 
TYPE 
DEL 
Pi 

IMPLICIT INPUTS: 
SQH 
RTM 


OUTPUT PARAMETERS: 
NONE 


Record number. 

Expected record type and control flags. 
True if this subtree is being deleted. 
Function-dependent parameter. 


Pointer to SQH. 
Pointer to record type map. 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


Oe ee ee 


BEGIN 
MAP 
E: BBLOCK; ! Control flags 


TYP 
EXTERNAL REGISTE 
RTM = 10: REF VECTORC,BYTE SIGNED], ! Record type map 
11: REF BBLOCK; : Pointer to SQH 


REC_N; ! Current record number 


SOOOCOCGOOOSS OO OOOOO OO OWWWOOWMOMWWOO NNN 


OOWNA US WD 0 OONA UE WN 0 OD NA UE WIN SO ODN UE WWN | O OONC USWA OOONOUS 


: 


LOCAL 


MACRO 
Process extension records Linked to a variable data area. 
MARK LAE ERASE LGOE TW SE ET 
fF ORE ARNE DE, FVDF_LENGTH] GTRU (LENGTH = 2) 


TREE ( 
.BBLOCKCADDRESS, FVDF_LINK], 
TYPE 


DELETE); 
END %, 
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sheimbubuebwbabsbababebubsububauhubid bhubabaiuhabahbabababehiabaiabohubabebabdiuhbehababububahobububbaiiahubinibatataiiads 
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v04-001 : 1a-8ep-19 4 99:4 :40 JOBCTL. RCJINI TQUEUE .B 2;3 . (85 
$ 432 13 1 Check that a Link to another record is either zero or valid. 
; 497 4 12 4 VALIDATE OPTIONAL_LINK(RECNO, TYPE) = 
; 498 M 1534 
; 499 M 1535 IF (RECNO) NEQ 0 
; 500 M 1536 
; 501 M 1537 VALIDATE _REQUIRED_LINK(RECNO, TYPE); 
3 206 1338 D x, 
s 3 1539 
; 504 1540 
: 305 1541 ' Check that a Link to another record contains a valid record number 
; 208 1306 § } and that the record is of the correct type. 
5; Te M1544 2 VALIDATE REQUIRED_LINK(RECNO,TYPE)= 
: 509 ™ 1545 2 BEGIN 
3; 310 M1546 2 
... Sy M1547 2 BEGIN 
3 21g M1548 2 IF (RECNO) LSSU 2 
g 91 m 1549 2 OR (RECNO) GTRU .SGHCSQHS$L_HIGHEST_RECORD]J 
>; 514 m 1550 2 THEN 
s 315 m 1551 2 TRUE 
: 5% M 1336 2 
, Sir m 155 2 -RTMC(RECNO)-1)] NEQ (TYPE) 
s 518 m 1554 2 
3 519 m 1555 2 HEN 
; 520 m 1556 2 SIGNAL (JBC$_QUEFORMAT) ; 
s Sel 1557 2 as 
3 as¢ 1558 2 
g Se 1559 2 : 
: 526 1560 2 ! Loop over all records in the List. 
3 des 1561 2! 
: 526 1208 2 REC_N = .RECNO; 
3; 527 156 WHICE .REC_N NEQ 0 DO 
; 528 1564 BEGIN 
; 529 1565 LOCAL : 
; 320 1566 3 REC: REF BBLOCK, ! Pointer to current record 
g. Soy 1567 3 MODIFIED, ! True if record modified 
: 532 1568 3 DELETE, ! True if record should be deleted 
3 329 1292 3 REC_NS; ! Record number of successor 
; 534 1570 3 
’ dee 1571 3 oe 
> 536 1378 ; DIAG_TRACEC9] = .REC_N; ! weet diagnostic info **#* 
: 3a 157 ! Range check the record number. 
; 3a 1574 ! 
; 539 1575 IF .REC_N LSSU 2 
; 540 1576 OR .REC_N GTRU .SQHCSQHSL_HIGHEST_RECORD] 
s 561 1577 HEN 
s 245 1578 SIGNAL (JBC$_QUEF ORMAT); 
3; «654 1579 
3: 544 1580 era a ; 
3; 545 1581 ! Read the record and initialize to process it. 
3; 546 1386 ! 
: 547 158 REC = READ_RECORD(.REC_N); 
; 548 1258 MODIFIED = FALSE; 
3; 549 1585 DELETE = .DEL; 
: 550 1586 REC_NS = .RECCSYMSL_LINK]; 
s 357 1587 
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Marae i , : 1o=88- 1382 99:4 :40 JOBCTL. RCJINITQUEUE .B 2:3 — (8) 
Check the record type. 
if -RECCSYM$B_TYPE] NEQ .TYPECB_TYPE] 
SIGNAL (JBC$_QUEFORMAT) ; 


VIII 


! Unless this action is inhibited, note the record type in the record type 
map and check for multiply allocated records. 


if NOT .TYPECV_NO_MARK] 
THEN 


SUPP SISISISISIUIT 
WR —OOONAUS 


BEGIN 
F_ RTM N-1] GE 


IF ,RTMC.REC_N- Q 0 THEN SIGNAL(JBC$_QUEFORMAT) ; 
BIAC REC Wel J = .RECCSY 


$1G 
M$B_TYPE); 


Dispatch to type-dependent processing. 
CASE = RECLSYMSB_TYPE FROM SYM$K_SCX TO SYMSK_REFUSAL_REASON OF 


seem Ma OUTRANGE): 


CSYMSK_SFM): 
BEGIN 


~ 


oo DONNI NSN NSIS SIO AOA AAO QOumunuiv 


Traverse substructures of the form record. 
MARK_VARIABLE_DATA( 


Ay Lvab val al Ssh ab sh ah Ab db db hb Ab Ab Ab hb Ab ab ab ah al oak al al al eal eal al eal eal eal eal 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


PRAEAEAPAAAAAAAAXAAXAA AAA AAA AAAAAAAAAAAAASAAAOAOAAOOOMIIVIMIVIVIUGT 
BEEK FAWN IRI PIPIPINPININININIDYD 4 2 4 SS DOC COOCOCOCOOCOOOOVOOOOOOOWD 


FPWR 0 OONOAUE WN 0 OD NAU EWN O OONAUE WN 0 OD NOU SWN OC OONAOU SWI OWOO 


DEW ES BE EB PWS BBE BEE EE FANNIN B&B BAA 


: 586 P 

: 587 P SFM$S_FORM_SETUP_MODULES, RECCSFMST_FORM_SETUP_MODULES), 
; 588 SYMSK-FORM-SETUP_MODULES, FALSE); 

s 589° P MARK_VARIABLE_BATA( 

: 590° Pp SFMSS_PAGE_SETUP_MODULES, RECCSFMS$T_PAGE_SETUP_MODULES), 
> 591 SYMSK—PAGE_SETUP_MODULES, FALSE); 

3 4 END; 

s 9 

: 94 

: 595 CSYMSK_SFX): 

; 596 BEGIN 

: 597 LOCAL 

8 309 SFE REF BBLOCK; ' Pointer to SFE 

3; 600 SFE = RECCSYMST_DATA); 

: 601 INCR SFE N FROM~O TO SFXSK_ENTRIES-1 DO 

: 605 IF CHSRCHAR(SFECSFXST_NAME]) EQL 0 

: 605 EXITLO ° 

; 606 SE 

: 607 BEGIN 

: 608 6 TREE (.SFECSFXSL_FORM_LINK], SYMSK_SFM, FALSE); 
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v04- : ae: 14 Sep 1382 99239:23 TL.S STAT TMUEGE 642;3 ree (85 


001 -Sep- JOBC 
; 609 1645 SFE = .SFE + SFXS$S_SFX; 
; 610 1646 8 END; = 
; 611 1647 & END; 
; olg 1648 END; 
; 61 1649 
: 614 1650 
; 615 1651 CSYM$K_SQX): 
; 616 1926 4 BEGIN 
s 607 1653 4 LOCAL 
; 618 1654 4 T: BBLOCK(4], ' Local type 
: e}> 1922 2 SQE: REF BBLOCK; ! Pointer to SQE 
F 854 1657 4 T = .TYPE; TCB_TYPE] = SYMSK_SMQ; 
; 62¢ 1658 4 SQE = RECESYMST-DATA; 
3 Ge 1659 4 INCR SQE_N FROM 0 TO SQX$K_ENTRIES=-1 DO 
; ose 1660 5 BEG! 
3 622 1661 5 IF CHS$RCHAR(SQECSQX$T_NAME]) EQL 0 
>; 626 1996 5 THEN 
; 627 1663 5 EXITLOOP 
; 628 1664 5 SE 
: oGp 1665 6 BEGIN 
; 6350 1666 6 TREE(.SQECSQX$L_QUEVE LINK], .T, FALSE); 
: 631 1667 6 SQE = .SQE + SQX$S_SQR; 
3 ose 1668 5 END; 
: @5 1669 4 END; 
> 634 1670 3 END; 
: 635 1671 3 
; 636 1676 3 
; 637 1673 3 CSYM$K_SMQ): 
: 633 1674 4 BEGIN 
; 639 1675 4 
; 640 1676 4 ! Third queue header pass. This pass traverses the current 
> 641 1677 4 : List, which must occur on a pass after the hold list because 
3 6 1678 ? failed jobs that are retained are enqueued to the hold List. 
3 644 1680 4 IF_.TYPECV_SMQ_P3] 
> 645 1681 4 THEN 
: 646 lose 5 BEGIN 
: 647 1683 5 TREE(..RECCSMQS$L_CURRENT_LIST], SYMSK_SJH, FALSE); 
> 648 1684 5 RECCSMQ$L_CURRENT_LISTJ™= 0; 
: 649 1685 5 RECCSMQ$L_CURRENT_LIST_END] = 0; 
; 650 1686 5 END 
3 63) 1687 5 
3; € 1688 2 E 
2 65 1689 ' Second queue header pass. This pass traverses all substructures 
3; 654 1690 5 ! except the current List. 
; 655 1691 5 : 
: 2 1996 4 ELSE IF .TYPECV_SMQ_P2) 
; 65 1693 4 THEN 
; 658 1694 5§ BEGIN 
; 659 1695 5 VALIDATE_OPTIONAL_LINK( 
3 660 1696 5 CTSMQ$L_ASSIGNED_QUEUVE_LINK], SYMSK_SMQ); 
: 661 1697 5 VALIDATE_OPTIORAL_LINK( 
; 66 1698 5 eRECTSMQSL_FORM_LINK] SYMSK_ SPMD ; 
; 66 1699 5 TREE ( .RECCSMQSC_GENERIC TARGET], “SYMSK_GENERIC_TARGET, FALSE); 
> 664 1700 5 TREE (.RECCSMQ$L-HOLD_LISTJ, SYM$K_SJH OR M_NO_GUEUE, FALSE); 
; 665 P1701 5 MARK_VARIABLE_DATA( 


i Validate the job's SMQ pointer and read the record. 
-RECCSJHSL wee LINK]; 

VALIDATE REQUIRED_CIN ee _N, SYMSK_SMQ); 

SMQ = READ_RECORDT. sma. “aie 

709 

! If the job was executing, write an accounting record and 

determine whether it is to be deleted, requeued, or retained. 


ir -RECCSJHSV_EXECUTING) 
THEN 


BEGIN 
co. -RECCSJHSV_RESTARTJ 


IF NOT .SMQCSMQ$V_RETAIN ALL_JOBS] 
a NOT .SMQCSMQ$7_RETAIN_ERROR_JOBS) 


DELETE = TRUE 
ELSE 
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v04-001 1er8een 138s 93:59:28 | act sae siacreveve os2:3 ve 
; 666 P 1708 5 SMQ$S_JOB_RESET_MODULES, RECCSMQ$T_JOB_RESET_MODULESJ, 
; 667 1703 5 SYMSK_ _YOB_RESET_MODULES, FALSE); 
; 668 17046 5 END 
> 669 1705 § 
: 670 1706 5 eS d 
; 671 1707 5 ! First queue header pass. This reinitializes fields and notes 
; 67 1708 5 ' the record number. 
; 67 1709 5§ i 
3; 674 1710 4 ELSE 
; 675 1711 «5 BEGIN 
; 676 a 5 RECLSMQ$L_STATUS] = 0; 
: 677 1713 5 RECCSMQ$V-STOPPED] = TRUE; 
: 678 714 5 CLEAR_TIME(RECCSMQSQ ACH BEGTIM); 
3; 679 1715 «5 REC Smas ACM GETCNTI © 
: 680 1716 5 RECCSMQSL-ACM-PAGECNT] = 0%. 
: 681 717 5 RECCSMQSL-ACM-QIOCNT] = 0; 
3 ose 1718 5 RECLSMQSL_ACM_SYMCPUTIM] = 0; 
: 68 1719 5 RECCSMQ$L_STREAM SCT) = 0; 
; 684 1720 5 RECLSMQ$W_OPEN JOB_COUNT] = 0; 
; 685 1721 5 RECCSMQ$W_PENDING JOB_COUNT] = 0; 
; 686 ise 5 RECLSMQSW_TIMER J6B8_COUNT) = 0; 
; 687 1723 (5 RECCSMQ$B_CURRERT_JOB ea’: = 0; 
; 688 1724 5 REC SMQSB_ STREAM_ INDER] = 
3; 689 1725 & END; 
; 690 1726 4 
3; 691 1727 4 
; 69 1728 4 MODIFIED = TRUE; 
; 69 1729 3 END; 
3; 694 1730 3 
; 695 1731 3 
: 696 1732 3 CSYM$K_SJHJ: 
; 697 1733 4 BEGIN 
; 698 1734 4 LOCAL 
; 699 1735 4 SMQ_N, ! Record number of oa fi SMQ 
; 700 1736 : SMQ: REF BBLOCK; ! Pointer to job's SMQ 
3 1738 4 
3 1739 4 
s 1740 4 
: 1741 4 
: rts 4 
3 1743 4 
: 1744 4 
: 1745 4&4 
: 1746 4 
3 1747 4 
3 1748 4 
: 174 4 
® 17 4 
; 17 5 
3 17 5 
: 17 5 
3 17 5 
: 17 5 
: 17 5 
: 17 5 
: 17 5 


SSN 
NNR) 3 
M—OOOnNOuUSwN—O 
DBNOUE WN —OVOOnouw 
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v04-001 _——s aR oes ri ee arte et ts een Tae Pe oe $) 
723 59 RECCSJHSV_RETAINED] = TRUE; 
Se et 
5 6 6¢ 5 RECCSJH$V_RESTARTING] = TRUE; 
727 é, RECCSJHSL-CONDITION_1] = JBC$_SYSFAIL OR STSSK_ERROR; 
728 64 REC SJHSL_CONDITION@¢ = 0; 
729 65 RECCSJHSL-CONDITION@3) = 0: 
730 66 WRITE _ACCOUNTING_RECORD( 
731 67 wREC, .SMQ, 
03 £8 0, 
73 9 .RECCSJH$L_CONDITION_1}); 
734 70 END; 
735 71 
736 ¢ 
ath 6 ' Reinitialize fields of the job header. 
739 5 RECCSJHS$L_CURRENT_FILE_LINK] = 0; 
740 6 JHSV_ABORTED] = FALSE; 
741 7 RECCSJH$V-ABORTING] = Prac ce: 
742 78 RECCSJHSV-EXECUTING] = FALSE; 
743 79 RECCSJHSV-FILE_STARTING] = FALSE; 
744 REC “OPEN] = FALSE; 
745 RECLSJHSV-REQUEUE] = FALSE; 
746 RECESJHSV-REQUEUE HOLD] = FALSE; 
747 RECCSJHSV-STARTING] = FALSE; 4 
748 RECCSJHSV-SYNCHRONIZE] = FALSE; 
749 RECCSJHSV-SYSTEM FAILURE] = FALSE; 
750 RECCSJHSL-EXECUTOR PID] = 0; 
RECCSJHSL_REQUEUE_GUEUE_LINK] = 0; 
752 RECCSJH$B_REQUEUE-PRIORITY] = 0; 


Traverse substructures of the job header. 


MARK VARIABLE _DATA( 
SJHSS_ CHECKPOINT RECCSJHST_CHECKPOINTI, 
SYMSK" CHECKPOINT, .D »; 

TREE(, phectsiHst FILE-LISTJ, SYMSK ~SQR, .DELETE); 


Be Be Se Se Se Se Oe Se Se Be Be Se Se Fe He Be Se Ss Se Se Ge Se Fe Ge SH Se Se Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Sees Se BeSease 
~“ ~“ 
“ “i 
~N _ 
vv 
ee a ee ee ee ee ee ee a ee ee ee ed a ed 


Pe ee oe ee ee tt oP ot oP ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot a a ee ee 


761 Pp VALIDATE grid NAL_LIRK 

762 »RECTSJH PN FORM LINK], SYMSK_SFM); 

763 fa VALIDATE SP TTORAL LINK 

764 »RECTSJHSL LOG QUEVE_LINK], SYMSK_SMQ); 

765 Pp MARK VARIABLE DATAT 

766 Pp SJH$S_LOG SPECIFICATION, RECCSJH$T_LOG_SPECIFICATIONJ, 
76 SYMSK-LOG-SPECIFICATION, .DELETE); 

768 Pp MARK_VARIABLE-DATA( 

769 P SJHS$S_NOTE, RECCSJHS$T_NOTE), 

770 SYMS: TE, .DELETE); 

771 P 1807 MARK_VARIABLE DATA( 

77 Pp 8 SJH$S_OPERATOR_REQUEST, RECCSJH$T_OPERATOR_REQUEST], 
77 09 SYMSK- OPERATOR REQUEST, .DELETE); 

774 P 1810 MARK_VARIABLE_DATAT 

775 P 1811 SJHS$S_P. PARAMETERS. nectasuer PARAMETERS], 

776 1 SYMSK Kk DARANE TERS. . DELETE) 

777 P 181 MARK VARIABLE ATA( 

778 e 13 SJH S REFOSAL REASON, RECCSJH$T_REFUSAL_REASON], 


SMS “REFUSAL “REASON, -DELETE); 
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! If the job is not to be deleted, reference the entry number and 
enqueue the job. 


ir ,DELeTe 
we ecartene..ncrewmninseies te 


—— 4 3 


BEGIN 

REFERENC ENTRY NUMBER RE ECCSYM$SL_ENTRY_NUMBER)); 

IF N YPECV_RO_ QUEUE] THEN ENQOEVE(.SMQ, .REC_N, .REC); 
Reuni TE. *RECORDT. Sea” vay 


MODIFIED = TRUE; 
END; 


CSYMSK_SQR): 
BEGIN 


Traverse substructures of the file record. 


MARK ee iL DATAC 
SQR$S_FILE_SETUP_MODULES, RECCSQRST FILE SETUP_MODULESJ, 
“se SYMSk =F ILE-SETUP “MODULES, -DELETE); 


Pe ot ae wd eee 
WN OC DONAUEWN (“OOO NOULS WN OOONO 


G2.09 Cd Cd Cd Cd Cd Od C9 C9 9 09 OS OD G9 G9 Cd CD CD OD OD 09 OD Cd CD CD CD CD OD 0D 09 09 00 0D CD C9 0D 09 00.00 09 CD CD CD CD 
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44 : 
809 45 
810 46 
811 47 CSYM$K_ENTRY_BITMAP): 
812 48 BEGIN 
813 49 
aie 39 Reinitialize the bitmap. 
816 52 CHSFILLCO, oe DATA, RECCSYMST_DATA)); 
817 53 MODIFIED = TRUE; 
818 54 END; 
819 55 
820 56 
821 57 CSYMSK_GENERIC_TARGET): 
822 58 BEGIN 
SS? 59 
824 60 ! Validate count. 
825 861 ! 
ase B66 IF .VECTORCRECCSYM$T_DATA], 0] GTRU 124 
828 864 VECTORCRECCSYMST_DATA], 0] = 124; 
$3 865 
866 : 
: rt Validate queue pointers. 
$34 56? INCR N FROM 1 TO .VECTORCRECCSYM$T_DATA], 0] DO 
34 870 BEGIN 
35 P 1871 VALIDATE peouleee LINK ( 
36 872 - VECTORCRECCSYMST DATA], .NJ, SYMSK_SMQ); 
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H 1 
INI TQUEUE Initialize system job queue file 16-Sep-1984 00:10:35 AxX-11 BLi 
04-001 seme) ale 127808-138e 99:39:23 


i: 870 1905 1 ROUTINE COLD_START_CURRENT_LIST: NOVALUE= 

ft B7i 1906 1 
| 3 ore 1907 1 !+44 

is o7 1908 1! 
i; 874 1909 1 ! FUNCTIONAL DESCRIPTION: 
|; 875 1910 1! This routine scans each executor queue's CURRENT_LIST looking 
'3; 876 1911 1! for deallocated SJH records. If any are found they are unlinked 
13 et 136 from the CURRENT_LIST. 

; 879 1914 1! This routine is called just before the third pass of the queue 
: 880 1915 1! index List. 

; «#4881 1916 1! 

: Ht 1917 1 ! INPUT PARAMETERS: 

; 88 1918 1! None. 

; 884 1919 1! 

; 885 1359 1 ! IMPLICIT INPUTS: ¥ 

>; 886 1921 1! None. 

; 887 1356 1! 

; 888 1923 1 ! OUTPUT PARAMETERS: 

; 889 19246 1! None. 

: 890 1925 1! 

; #891 1926 1 ! IMPLICIT OUTPUTS: 

; 892 1927 1! None. 

; 893 1928 1! 

> 894 9 1 ! ROUTINE VALUE: 

; 895 1930 1! None. 

: 896 1931 1! 

: 897 1336 1 ! SIDE EFFECTS: 

: 898 1935 1! None. 

: 899 1934 1! 

; 900 1935 1 !-- 

: 901 1936 1 

: 902 1937 § BEGIN 

; 903 1938 

: 904 1939 2 LOCAL 

s 90S 1940 2 JN. ! Record Number of Queue Index 
; 906 1941 2 SQH: REF BBLOCK; ' Queue Header Recor 
; 907 1366 2 

: 908 19435 2 ! Read queue header record. 

: 909 1944 2! 

: 910 1945 2 SQH = READ_RECORD(SQH$K_RECNO); 

; 911 1946 2 : 

: ats eof Validate each Queue's CURRENT_LIST. 

3; «9146 1949 SQX_N =  SOMC SONG), OUEUE INDEX ASTI; 

7 915 1950 WHITE .SQX_N NEQ 0°00 

; 916 1951 BEGIN 

: 917 1336 

: 918 195 LOCAL 

; +I 1954 SQX_NS, ! Successor of Queue Index 
: 920 1955 3 SQXx: REF BBLOCK, ' Queue Index Record 
: 921 1956 SQE_N, ' Queue Entry Number 
: 256 1957 SQE: REF BBLOCK; ' Queue Entry 

, Pz 1958 ; 

: 924 1959 ! Read the queue index record. 

: 925 1960 : 

: 926 1961 SQX = READ_RECORD(.S0x_N); 
j 


1 
| INITQUEUE Initialize system job queue file 1- -Sep-1984 AX-11 Bliss-32 V4.0-7 Page 33) I 
/v04-001 . 14-Sep- 1984 98: 38:2 JOBCTL” SRCJINITQUEUE. : 2;3 3) | V 
13; 927 1366 5 
(3 928 196 | ; 
: 929 1964 ! Scan the queue index record. : 
is 930 1965 ; 
ig V5) 1966 Soe = SQXCSYM$T =RATAI; F 
+ Re 1967 INCR SQE_N FROM”O TO SOXSK_ENTRIES=1 DO | ; 
ls 93 1968 4 BEGI . 
> 934 1969 4 IF CHSRCHAR(SQECSQX$T_NAME]) EQL 0 ° 
3; 6939 1970 4 TH ; 
; 936 1971 4 EXITLOOP | : 
; 937 1376 4 LSE PF 
; 938 1975 5 BEG! : 
: 939 1974 5§ IF .SQECSQX$V_EXECUTOR] : 
: 940 1975 § H 
> 941 1976 6 BEGIN | ; 
3 24 1977 6 PF 
; 94 1978 6 LOCAL : 
> 944 1979 6 SMQ: REF BBLOCK, ! Queue Record : 
> 945 1980 6 SMQ_N; ' Queue Record Number $ 
> 946 1981 6 : 
; of ieee ; SMQ = READ_RECORD(SMQ_N = .SQECSQX$L_QUEUE_LINK)); : 
> 949 1984 6 ! Scan the current List. weer? that any jobs on the List : 
; 950 1985 6 i have valid back pointers to the SMQ record. Unlink any : 
s 951 1986 6 i that does not. ‘ 
: 952 1987 6 i : 
; 953 1988 6 IF .SMOCSMQ$L_CURRENT_LIST] NEQ 0 : 
: «954 1989 6 THEN : 
3 99> 1990 7 BEGIN : 
s 936 1991 7 LOCAL . 
; 957 Hb 7 SJH: REF BBLOCK, ! Job Record : 
; 958 1993 7 SJH_N, : ‘ Number . 
; 959 1994 7 SJH_P: REF BBLOCK, ! Predecessor ; 
; 960 1995 7 SJH_NP; ! *"" Record Number : 
; 961 1996 7 ; 
> 962 1997 7 ! Initialize predecessor to SMQ. ° 
s 96s 1998 7 i : 
3; 964 1999 7 SJH_ Py -SMQ_N; : 
> 965 2000 7 SJH_P = .SMQ; 3 
; 966 2001 7 3 
: 967 2002 7 SJH_N = .SMQCSMQ$L_CURRENT_LISTI; : 
; 968 2003 7 WHICE .SJH_N NEQ 0°00 3 
: 969 2004 8 BEGIN : 
: 970 $p02 ; : 
: 971 006 ! Verify each SJH. : 
: 972 2007 8 | : 
: 975 2008 8 SJH = rey RECORD(.SJH_N); : 
3: 974 2009 8 r. de SJASL “QUEUE “LINK] EQL 0 : 
3 975 010 8 : 
: 976 011 9 ENBEGIN : 
: 977 big 8 : 
: 978 013 9 ' Unlink deallocated SJH trom CURRENT_LIST. ; 
; 979 014 9 : : 
; 980 015 9 IF .SJH_NP EQL .SMQ : 
: «981 O16 G THEN 3 
: 98 017 10 BEGIN 3 
: 98 018 10 | : 
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Predecessor is SMQ. 
SMOCSMQSL_CURRENT_LIST) = 0; 
SMOCSMQS$L~CURRENT-LIST_ENDJ = 0; 
FLUSH RECORD. SMQ-N) ; 


ELSE | 
BEGIN 


-32 V4.0-74 Pp 34 | 
TRI TOUEVE 692:3 ow aS 


! Predecessor is previous SJH. First update 
SMQ's current List end, then unlink bad SJH. 


SMQCSMQSL_CURRENT_LIST_END] = .SJH_NP; 
FLUSH_RECORD(.SMQ"N) 
SJH_PESYM$L_LINK] = 0; 
ELUSH_RECORB(.SJH_NP) ; 


et ss 4 >) > 


—NWNIAWNIIA & & & ENO O 50900 09 09 CO CD CD CD CDED OW DOO OOOOCOCOODOCOOCOO 


EXITLOOP; 
END; 


! Set up for next iteration. Current SJH becomes 
' predecessor, next SJH read will be successor of 
! current SJH, if one exists. 


' 
i 
i 
i 

SJH_P = .SJH; 

Ss 
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| 
| 
N=” 33H PLSYMSL LINK); 
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JH 
JH 
JH 
N 


END 
ELSE 
- RELEASE _RECORD(.SMQ_N); 


END; 


SQE = .SQE + SQX$S_SOX; 
END; 


Advance to the next index block. 


SQX_NS = .SQXCSYMSL_LINK]; 
RELEASE_RECORD(.SQX"N); 
SQX_N = .S 3 


END; 


OFFC 00000 COLD_START_CURRENT_LIST: 
. WORD 
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Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1905 
000000006 EF 54 PB 09008 CALLS 4 READ_RECORD Ses 
34 64 AO dO 00008 MOVL  106(SQH)> SQX_N : 1949 


| —_—> See rerarecarerere ~o 


—N MT K—TNOMO Weew MOW 


SSQse SESS 8 F88S8 S$ £ SN HX Be cySeSe 45 
= a - oo wo wv 
— _ oe oon OO oC COOooo o oO o oo SO OCCCCOO oO s 
oa POPS HS Fe FS FS HS FS HS HS FTE FETS FS FS HS FES HS HS HS HS TSS HS HSE HTS HS HSS HS HS HS HS SSSR FETS HS HS SSCS SSE FE HE CER SCR SR ER HOHE 
Ad 
a 
| 
} » 
j *. 
| N 
| tl] 
| <-@ 
= = 
| iw 
o7Fa 
| se 
wo 
>a 
ee 
Ne, 
ma 
i7-—- 
or a a 
"nu « a 
“a a a oO Oo 
_—M a A a a = « Vv YW 
@- i. 4 oz = 2 a gs oO o 2 w A uw 
o 'o a ‘ oO = wo vo a 1 <zenmwn «ez 
he vo w a LV = = = Ym w w 2=xz a 2 ‘es 
-v w oo -~= ww uw fe] w~ € a = uw - § wi 
‘@ <= wo wo co zan a = ~o i 'axm ” 2x woe 
xO $ oe ‘ = i) ”" ~~ = = ~- .—< o «4 
| =<z=~ a . ws: & mx s  — ” ny” =m s www ww 
>w <x<-~ vn «6«<tOn bar Led <<IT _ A can a 3 & maT = T= | — * 
wo Nw wee be hd won a og Qa waa “ www: ww 
2ane-2— MOZaeuv=e 2 F&F 2204 2 22 22u Su 2i2ze “Zaz 
' cw ty wnt wm tm t+ ~w~ £m 8£Ft Es ae. a, oe 
<x = wwe wd + w~ fe~ zero -zt~dod t90O mt + TIM BG Oe-ox +x 
NO FA BG-—-ONGMO—VOZ—OVNE EF EWS OP —- OOK VON HME NO HOMO” BH Ee ws VO- Ge 
MT NY MBE — Nw —BMYORBLP DMP. O VBIML ANY. HOW VYBR~VROUY~ SVR BB~YNBY 
orm 
mM oa 
oe se 7 @D WN on oa) aM JW) ajiWitvw JW) 
om 8S THY IOY JT HH HIS IIIS ST tN TS Od I i TN II XT 
be kg ee dn ee ed ee he ee ee ee ee ee eee ee 
Zw 0O0 4gUVwOo ra touvwo0dw2ftovyss 2 ID ecovtd wT et eooonet Ve ooo7TKtOocw 
TT OTaAvFt FS OrQOOMZOVF+DETETFITOOAYSZ+OMOOMVA TTA CvA MESSE OAvae ae tavstoar 
on 
-- 
oa 
-©& @® Pa oe oe oe oe oT or oe ee recy 
Yn Ff HA 2 A A rn A feo 
ae - mw ~~ wT w oOo é- ao oe. 
a 
Se III CI CIPIN SF SF AT TT TMNNUNIN OOD OOOOPR-P-K-P-PR. MWOCOOPOAO Kec ecow 
COOoOoooooooooooooooooooooooooooooooooOOOoOOCOOOOOOOOOoOOoOO 


NT ODOWTMM SC ODOMMOOOM ODOMNVU -NVO-COOs O@Or-OOOC- OADOMOCO@DO- ve 
—OO4 O00 O00 —-wOouC0Or- O06" Ou 00 Orr Or O0buU0C0u— OOO Ou VU COU OMO 


w 
@ 
— BAKHOOSLTORK IM — OU EMU OO OR. OW. CUM HK NM OM TP O00 OM DOO MY w 
OD NOW INAPR. O AMON FUNNEL TFTNOWMN VOUIMNO BNE NNOONOK MMO DNOWOWONMOUN oO 
= 
ue > 
v wv co co wT co w 
Oo N w wT ~ w a 
gw = Oo 
~ Oo i 
= 
a 
Ss a 
a uo. wr ue mow = ~N Nu he = cdimwo wer oO bo) 
2 wn wn wih Mnwn we w <= w w wn ww wi @ 
a 
2 oO o o o o oOo o c 
°o Oo oO Oo So ww oS o o Oo - 
_ o ™N oO o 7 & o [=] So ~ 
o o o So o So o 
& oOo So o So So So So ° 
a Oo o o o So So So = 
ea oO Oo Oo Oo Oo So Oo 
wn Oo oOo o oS o So So 
= oOo o o o oO o Oo 
a ~~ . 
a Oo Ls) i) 
N ao 
ad ~ 
~ ~ 
@ 2 
} — 
we Oo 
| - rs) 
od - 
| _ 
| - 
| N 
” 
ws vu 
= € 
wie - 
2O ~ 
coo 3 
- 1 ° 
ad « 
zo 
_-—> *. 


| 
| 
| 
| 
| 
| 
| 


Ranatnenieligie 


v———__—_—_- 


1 
INL TQUEUE Initialize system job queue file 18- $ep-1984 00:10:35 AX-11 Bliss-32 V4.0- Page 36 
W4~001 14- 30071382 99:48:23 ‘OBCTLe SR aT iairiuece 6 B52;3 ’ 3 
13 19 ; 06 } ROUTINE COLD_START_EXISTING FILE: NOVALUE= 
1034 068 1 !+4 
/; 1035 069 1! 
is 10 $ 070 1! detaches «1 DESCRIPTION: 
3 +34 4 ! This routine reinitializes an existing queue file. 
\3 1039 2078 1 | INPUT PARAMETERS: 
: 1040 074 1! NONE 
: 1041 2075 1: 
13 Org 2076 1! SPLICE? INPUTS: 
|; 104 $ook 7% ONE 
3 1044 076 1! 
3 1045 aes 1 | OUTPUT PARAMETERS: 
z 1046 080 1} NONE 
; 1047 2081 1! 
> 1048 50g 1 ' IMPLICIT OUTPUTS: 
3: 1049 2083 1! NONE 
; 1050 2084 1! 
: 1051 2085 1 ! ROUTINE VALUE: 
; 1052 2086 1! NONE 
: 1053 2087 1: 
3; 1054 2088 1! SIDE wth 
; 1055 2089 1! ONE 
: 1056 2090 1! 
: 1057 2091 1 j- 
: 1058 2092 1 
: 1059 2093 2 BEGIN 
: 1060 2094 2 LOCAL 
; 1061 2095 2 MIGHEST_ENTRY_NUMBER, ! Expected highest entry number 
: 1062 2096 2 HIGHEST_ENTRY_OFFSET, i Highest nonzero bitmap slot 
3: 1063 2097 2 FREE_N, 
: 1064 2098 2 BUFFER: BOL OCKE S18. SYM), 
: 1065 2099 2 BITMAP_RETADR: ° 
3 1960 2100 2 SAVED_PENDING_BATCH_LIST, 
3; 1067 2101 2 SAVED_PENDING_ PRINT_ LIST 
: 1068 2102 2 SAVED. TIMER, LIST, 
: 1069 2103 2 STATUS; 
: 1070 2104 2 GLOBAL ne GI Sten 
: 1071 2105 2 = 10: REF VECTORC, BYTE,SIGNED], 
: 1072 2106 § San = 11: REF BBLOCK; 
: 1073 2107 
: 1074 2108 
; 1075 2109 ' Allocate and initialize the record type map. This vector records the 
: 1076 2110 ! record type of each record encountered. It is initially -1, so that 
3 Hy 144 gti) 2 multiply allocated and lost records can be readily distinguished. 
: 1079 P $118 STATUS = SEXPREG ( 
: 1080 P $118 oy ye - QUEUE at ee -ALQ] + 511) * =9, 
: 1081 115 RETADR=B1 TMAP_RET 
3; 1082 2116 IF +m “STATUS THEN. SIONAL (JBCS ALLOCMEM OR STSSK_SEVERE, 0, .STATUS); 
: 1083 2117 INCRA FROM joe PRE TADREO) TO .BITMAP_RETADRCT) AND NOT 511 BY yY 512 dO 
; 1085 119 
: 1086 139 See a . : 
; Hh 5 $153 Read the queue header and initialize global registers for the TREE routine. 
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Initialize system job queue file 16-Sep-1984 00:10:35 AX-11 Bliss-32 V4.0- 
, ’ 12-808- 1382 99:49:23 JOBCTL SRC} 
RTM = .BITMAP_RETADR(O); 
SQH = READ_RECORD (SQH$K_RECNO) ; 


! Process a discrepancy between the queue file allocation and the highest 
record number recorded in the queue file. 


IF, SQHCSQHSL_HIGHEST_RECORD] NEQ .QUEUE_FABCFABSL_ALQ] 
BEGIN 


! If the highest record number is beyond the allocated space, it is 
an error. 


iF .SQHCSQHSL_HIGHEST_RECORD] GTRU .QUEUE_FABCFABSL_ALQ] 
SQHCSQHSL_HIGHEST_RECORD] = .QUEUE_FABCFABSL_ALQ); 


: Presumably a crash occurred while the file was being extended. Ensure that 
! records beyond the highest recorded record number are initialized and 
} process them later as lost records. 


CHSFILL(O, SYM$S_SYM, BUFFER); 

QUEVE RABLRABSL_RBFJ = BUFFER; 

IF .fCAGSCFLAGS-V_QUEUE SHARED) 
THEN QUEUE_RABCRABSC_ROP] = RABSM_UIF 
ELSE QUEUE ~RABLRABSL ROP] = RAB MULE: 


0 OR RABSM_NLK 
DECR RECN FROM .QUEUE_FABLFABSL_ALQ 


SQHCSQHS$L_HIGHEST_RECORD] + 1 DO 


N 
SIGNAL_FILE_ERROR( 
JBTS_WRITEERR + STSS$K_SEVERE, 
QUEUE_FAB, QUEUE_RAB); 


END; 
SQHCSQHBL_HIGHEST_RECORD] = .QUEUE_FABCFABSL_ALQ]; 


' Traverse the free List. This action must precede the deletion of any 
' other records. 


' 
i 
; 
4 AG_TRACEC8 


I J= 1; ! eeeee diagnostic info s*#** 
REET. SQHLSQHSL_FREE_LISTJ, 0, FALSE); 


' Traverse the characteristic definition List. 


' 
' 
DIAG_TRACEC8) = 2; ! eeeee diagnostic info ee 
TREET. SQHCSQHSL_CHARACTERISTIC_LIST], SYMSK_SCX, FALSE); 
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' Compute the expected value of the highest entry number based on the 
! existing extension vitmap records, and correct the value recorded in the 
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Initialize system job queue file 16-Sep-1984 00:10:35 AX-11 Bliss-32 V4.0-74 e 8 
nian wil 1orgee=13Re 99:43:23 TL_SRCI age 38 | 


- JOBCTL. SRC INT TOUEUE.B 32; 3 
: queue header. 
DIAG_TRACE(8) = 3; ! weet diagnostic info st 
HIGHEST _ENTRY_NUMBER = 
SQHSS ENTRY BITMAP * 8 + 
YMSS_DATA~®* 8) * (SQHSS_ENTRY_BITMAP_VECTOR/4); | 
HEST ENTRY OFFSET = <1; 
R_N FROM SOHSS_ENTRY_BITMAP_VECTOR/4=1 TO 0 DO 


IN 
4 og VECTORCSOHCSONSL ENTRY_BITRAP_VECTORI, «NJ NEQ 0 
BEGIN 
HIGHEST _ENTRY_OFFSET = .N; 
EXITLOOP; 


END; 
HIGHEST_ENTRY_NUMBER = .HIGHEST_ENTRY_NUMBER (SYM$S_DATA * 8); 
SQHCSQH$L_HIGHEST_ENTRY_NUMBER] = .HIGHEST_ENTRY_NUMBER; 


Correct the next entry number value if necessary. 


| 
if - SOHESGHSL_NEXT_ENTRY_NUMBER] EQLU 0 
OR :SQHCSQHSL-NEXT~ENTRY-NUMBER] GTRU .HIGHEST_ENTRY_NUMBER + 1 
| 
| 
| 
| 


HEN 
SQHCSQHSL_NEXT_ENTRY_NUMBER] = 1; 
! Traverse and reinitialize the extension bitmap records, ensuring that each one 
: exists. This must occur before any job Lists are scanned. 
INCR N FROM 0 TO .HIGHEST_ENTRY_OFFSET DO 
BEGIN 


LOCAL . 
SEB_N; ' Record number of extension bitmap 


SEB_N = .VECTORCSQHCSQHSL_ENTRY_BITMAP_VECTOR], .NJ; 
IF [SEB_N EQL 0 THEN SIGNAL(JBC$_QUEFORMAT); 


TREEC.SEB_N, SYMSK_ENTRY_BITMAP, FALSE); 

CHSFILL(O, SQH$S_ENTRY_BITMAP, SQHCSQHSB_ENTRY_BITMAP]); 

' Traverse the form index List. This must occur before any job lists are 

scanned and before the queue List second pass. | 

DIAG pore jh = 4; {| seeee diagnostic info ***** | 
| 
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g i TREET. SQHLSQHSL_FORM_INDEX_LISTJ, SYMSK_SFX, FALSE); 

229 
§ ? Traverse and delete the incomplete service List. | 
2 § DIAG_TRACE(8) = 5; ! sete diagnostic info tet 

§ TREET. SQH[SQHSL_ INCOMPLETE SERVICE LIST. SYM$K_SRQ, TRUE); 

§ : SQHCSQHSL_INCOMPLETE_SERVITE_LISTJ™= 0; 

236 
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' 
DIAG_TRACEC8) = ! wee diagnostic info ***** 
TREET. SQHCSQHSL_ Queue. INDEX_LISTI, SYMSK_ SQX OR M_SMQ_P3 OR M_NO_MARK, FALSE); 


! Traverse the pending Lists and the timer List. 


1 
‘ 
DIAG_TRACE[8} = eeeet diagnostic info *eee* 
TREET. yi PENDING -BATCH_LIST, SYMSK “sui, FALSE): 

DIAG_TRACE tees diagnostic info s**«s 
TREET. saver PENDING _PRINT_LIST, SYMSK_ sui. "FALSED 

DIA ttet diagnostic info txts 


G 
ET. SAVED. TIMER “List, SYM$K_SJH, FALSE); 


1 14-Sep-19 JOBCTL.SRCJINI TQUEUE. 3 2:3 
: 1203 7 ! Traverse the queue index List. This must occur before any job lists are ; 
; ; oe 3 scanned. : 
: 1206 40 bIAG TRACEC8) = | teeee epee info tere : 
3 iso? $34, TREET, SQHE SQHSL Steve _INDEX_LIST], SYM$K_SQX, FALSE : 
: 1209 ; rk : 
3 : i9 Ste ; Traverse and delete the open job list. ‘ 
; a Ste DIAG TRACEC8) = eeeee diagnostic info *x*** ; 
> 121 2247 2 TREET. SQHLSQHSL SPEN. LIST, SYMSK_SJH, TRUED: : 
3: 1214 ssce SQH SOHSL OPEN CIST tJ 2 : 
: 1215 § 49 SQHCSQHSL_OPEN_LIST “END = 0; ; 
: 1216 250 : 
3; 1217 2251 2 ; 
; 1218 $526 5 ! Save and reinitialize the pending and timer Lists. This must occur before ; 
3 1$3? $s27 any job lists are scanned. | : 
: 1221 2255 g SAVED -PENDING_BATCH_LIST = GE te ae PENDING_BATCH_LISTI; | : 
3; 1222 2256 2 SAVED_PENDING Tee iNTotdst = ,SQHCSQH$L~PENDIN G-PRINT_LISTJ; ‘ 
3: 1223 2257 2 SAVED TIMER_LIST = 7SQHL south. yng JLTSTI; a 
3: 1226 2258 2 SQH SOHSL_PENDING_BATCH_ LIST ; 
: 1225 2259 2 SQHCSQHS$L_PENDING_BATCH_LIST ENDS’ = 0; “ 
> 1226 2260 2 SQHCSQHSL_PENDING_PRINT_LISTJ = 0; ; 
3; 1227 2261 2 SQH SQHSL_PENDING_ PRINT_LIST_ENDJ = 0; : 
; 1228 $566 2 SQHCSQHSL_TIMER_LTST) ="0; : 
3: 1229 226 2 SQH SQHSL_ TIMER— _LIST_ENDJ = 0; : 
3 1250 2264 2 ; 
3: 1231 2265 2 : 
3 1232 2266 2 ! Traverse the queue index List (pass 2). 3 
3 1233 2267 2! ; 
3 1234 2268 2 DIAG_TRACEC8) = 8; ! aeeee sigqgess ¢ info *xeee : 
: ise? $362 § TREET. SQHESQHSL _QUEUE _INDEX_LISTI, SYMSK_ SQX OR M_SMQ_P2 OR M_NO_MARK, FALSE); : 
: 1539 2271 2 ! Find any deallocated job records that remain in the CURRENT_LIST of any PF 
3; 1238 2272 2} queues. : 
: 1239 2273 2! ; 
3; 1240 2274 2 DIAG_ TRACEC8] = ! weee® diagnostic info **#** F 
> 1241 2275 2 COLD-START_ BURRENT _LISTO; | : 
; 1242 2276 § é : 
: 1243 2277 ! Traverse the queue index list (pass 3). 3 
3 1244 2278 § 3 
3 \sé 2 ; : 
3 ; 3 1 $ ‘ 
.s 2 5 $ : 
3 1 2284 3 
3 1 2285 : 
2 $589 : 
1 sos : 
3; 1 $ 0 3 
i] 338 : 
s 1 2 : : 
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! Pass over the lost blocks looking for lost job headers. 


 . 

INI TQUEUE Initialize system job queue file dak 4 a8 BS 90:4 :35 AX-11 Oat V4.0-74 Page 40 

v04-001 14-Sep-1984 22: 0 JOBCTL.SRCJINITQUEUE .B852;3 (7) 

; 1260 94 ‘ : 
: 1261 95 DIAG_TRACE(C8] = 14; |_xeete diagnostic info t#**s ; 
: 126¢ 96 @ INCRTREC_N FROM 2 TO .QUEUE_FABCFABSL_ALQ] DO : 
; 126 97 BEGIN : 
+ 1264 98 IF_.RTMC.REC_N-1] LSS 0 ‘ 
> 1265 § 99 THEN ; 
3 1266 00 4 BEGIN : 
; 1267 $30. 4 LOCAL : 
; 1268 306 & REC: REF BBLOCK; ! Pointer to lost record ‘ 
3 1568 $30 4 ; 
; 1270 304 4 REC = READ _RECORD(.REC_N); ° 
; 1271 $30? 4 IF .RECCSYM$B_TYPE) EQC SYMSK_SJH : 
: 1272 306 4 THEN TREET.REC_N, SYMSK_SJH OR M_NO_TRAVERSE, FALSE); : 
: 1273 2307 4 RELEASE_RECORD(.RET_N); ° 
3 1274 2308 3 END; ‘ 
3 1275 2309 2 END; ‘ 
3 1276 2310 2 : 
s ler? 2311 2 ! Indicate last pass is complete. ; 
; 1278 saig 2% 
; 464 $3i7 § DIAG_TRACE(8) = -65536; ! xeeet diagnostic info ters ; 
; 1281 2315 2! Link all remaining lost blocks to the free list. ‘ 
; 1282 2316 2! ; 
; 1283 2317 2 FREE_N = .SQHCSQHS$L_FREE_LISTI; : 
> 1284 2318 2 CHSFILL(O, SYMSS SYM, BUFFER); | : 
> 1285 2319 2 QUEUE RABERABSL _RBF J = BUFFER; | : 
: 1286 2320 2 IF .FCAGSCFLAGS-V_QUEUE_ SHARED) . 
3 1287 2321 2 THEN QUEUE_RABCRABSC_ROP] = RABSM_UIF OR RABSM_NLK ; 
>: 1288 $358 2 ELSE QUEUE RABCRABSL_ROP] = RABSM_UIF; : 
; 1289 232 ¢ DECR RECN FROM .QUEUE_FABCFABSL_ALQ]~TO 2 DO | : 
> 1290 2324 EG! | : 
: 1291 2325 3 IF_.RTMC.REC_N-1) LSS 0 | : 
: 1292 2326 3 H : 
3 1293 2327 4 BEGIN : 
3: 1294 2328 4 BUFFERCSYMS$L_LINK] = .FREE_N; ° 
3 1295 2329 4 FREE_N = .REC_N; : 
; 1296 2330 4 QUEUE_R ABSL_KBFJ = REC_N ‘ 
3: 1297 Sea! 4 DIAG. TRACED! } = .DIAG_TRATEC10] + 1; ! Count Lost blocks recovered | : 
; 1298 336 be DIAG COUNTC1) = .DIAG_COUNTC1) + 1; ° 
3 444 tH 5 NOT $PUT(RAB=QUEUE_RAB) : 
3 1301 2335 4 SIGNAL _F ILE ERROR ( : 
; 4 336 4 JBCUS$_WRITEERR + STSS$K_SEVERE, . 
; 130 337 4 QUEUE_FAB, QUEUE_RAB); : 
3: 1304 338 3 END; : 
; 1305 2339 END; : 
: 1306 3340 SQH(SQH$L_FREE_LIST] = .FREE_N; ; 
: 14 341 SQHCSQHSL_HIGHEST_RECORD] = TQUEUE_FABCFAB$L_ALQ); : 
3 1309 308 ‘ : 
: 1319 re! : Ensure that the end of file pointer is correct. : 
: 1al¢ ry IF NOT $FLUSH(RAB=QUEUVE_RAB) ; 
3; 131 4 THEN : 
3 1314 48 SIGNAL _FILE_ERROR( : 
3 3319 49 JBC$_WRITEERR + STSSK_SEVERE, : 
3; 1316 50 QUEUE_FAB, QUEUE_RAB); : 


Dd a 
INI TQUEUE Initialize system job queue file 16-Sep 4 AX-11 Bliss-32 V4.0-7 
v04-001 14-Sep 71982 99: 8:3 JOBCTL.SRC INITQUEUE. 4 2:3 
: 1317 51 
; 1318 26 
3 | }? 27 If the timer List is not empty, set a timer on the first job. 
; 1321 55 IF .SQHCSQHSL_TIMER_LIST] NEQ 0 
3 1 ; 2$ THEN 
: 1 2 BEGIN 
3; 1326 8 LOCAL 
; 1325 59 JN. ! Record number of SJH 
; 1326 60 JH: REF BBLOCK, i Pointer to SJH 
3 } i °] STATUS; i Status return 
3; 1329 8 SJH_= READ _RECORD(SJH_N = .SQHCSQHSL_TIMER_LIS‘J); 
: 1330 P 2364 STATUS = SSETIMR( 
s 1531 P 65 OE aad 6s ae 3 AFTER_TIME]), 
3; 1 3 P 2366 ASTADR=AFTER_A 
3 133 367 REQIDT= =JBCSK “AFTER. IDT); 
: 1334 68 If NOT .STATUS 
: 1335 369 THEN 
3: 1336 370 SIGNAL (JBCS$_ ate _OR STSSK_ERROR, 0, .STATUS); 
3: 1337 2371 3 — NRECORD( 7SJH 
: 1338 $376 END 
: 1339 37 
: 1340 374 
: 1341 375 2 ! Rewrite the queue header. 
3 to 2376 ! 
; 134 2377 REWRITE_RECORD(SQHS$K_RECNO); 
3 1344 2378 
> 1345 2379 
: if Sees § Release the record type bitmap to the free memory List. 
: 1348 $356 2 DECRA P FROM .BITMAP pb rade AND NOT 511 TO .BITMAP_RETADR(O) BY 512 DO 
3; 1349 238 2 DEALLOCATE MEMORY (.P 
; 1350 2384 1 END; 
-EXTRN SYSSEXPREG, SYSS$PUT 
-EXTRN SYSSFLUSH, SYSSSETIMR 
OFFC 00000 COLD_START aed ee CAF ILE: 
WORD R3,R4,R5,R6,R7,R8,R9,R10,R11 
bh FB46 CF 9E 0000 HOVAB 4 
58 o000900R" EF 9E 38 0 MOVAB d14 § TRACE #32. R8 
5E FDF CE 9E 0000 MOVAB 2etsp 
y 00018 CLROQ -(SP 
10 AE 9F ap0t§ PUSHAB 511, QUE TADR 
50 0304 C8 OOOOOIFF 8F C1 O30) ADDL3 QUEUE _FAB+16, RO 
50 ‘7 F 78 000 ASHL 
000000006 00 4 FB 00 CALLS #4 “SYSEEXPREG 
11 0 € 9 : LBS STATUS, 4 
50 ODD 1 PUSHL S 
7E 04 $° H CLRL ha 
0004840C 8F DD 5 PUSHL 
000000006 00 gs FB 00 | CALL CiBssi¢ 
7 0c AE OOOOOIFF F cB Bie 1$: BICL B TRAP TRETADRSS, R7 
SA 08 AE DO 00048 MOVL Sn. RETADR, 
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2 | 
INI TQUEUE Initialize system job queue file 1b-s6 -1984 00:10:35 AX-11 Bliss-32 V4.0-74 Page 42 
v04-001 12-808= 1382 99° :40 JOBCTL.SRCJINI QUEUE .B 2:3 . (7) 
| 
11 0004F BRB 3$ : 
0200 28F FF oF 6E 06 2c 0051 2$: MOVCS #0, (SP), #=1, #512, (P) + 2118) 
SA 0200 cA SE 003A MOVAB 512(R10), P : 
57 A D1 OOOS5F 3$: CMPL  P, R7 : 
ED it 0062 BLEQU 2 : 
SA 08 AE OD 0 64 OVL § BITMAP_RETADR, RTM + 2123) 
1 DD 00068 PUSHL # + 2126 | 
000000006 Ef 1 FB 006A CALLS #1, READ_RECORD ; 
B 0 pO 00071 MOVL H : 
56 0304 (CB DO 00074 MOVL QUEUE _FAB+16, R6 + 2130 
56 40 AB D1 9079 CMPL 64(SQR), R6 : 
6D 13 0007D BEQL 10$ : 
04 18 0007F BLEQU 4$ * 2137 
40 AB 56 00 00081 MOVL 6, 64(SQH) + 2139 
0200 28F 00 6E me 00 2C 90085 4$: MOVCS #0. (SP), #0, #512, BUFFER + 2146 
036c «C8 10 AE 9E O008E MOVAB BUFFER. QUEUE _RAB+40 : 2147 
0B O1E0 8 03 £1 00094 BBC ¥ ELAGS, 5$ + 2148 
0348 ¢8 00100010 8F DO O009A MOVL § #1048592, QUEUE_RAB+4 + 2149 
05 11 O00A3 BRB $ ; 
0348 C8 10 D0 000A5 S$: MOVL. #16, QUEUE_RAB+4 + 2150 
52 40 AB 01 C1 OOOAA 6$: ADDL3 #1, 64(SQHY, R2 : 2151 
6E 56 DO OOOAF MOVL 6, REC_N : 
2p 11 00082 BRB 9$ ; 
0374 CB 6E 9E 00084 7S: MOVAB REC_N, QUEUE_RAB+48 : 2153 
44 AB 06 000B9 INCL  DIAG_COUNT+4 + 2154 
0344 CB 9F 000BC PUSHAB QUEUE RAB > 2155 
000000006 00 01 FB 000CO CALLS #1, SYS$PUT ; 
15 50 €8 000C7 BLBS RO, 8$ : 
0344 (CB SF OOOCA PUSHAB QUEUE _RAB : 2157 
02F4 CB OF OOOCE PUSHAB QUEUE FAB ; 
000410D4  &8F DD 000D2 PUSHL #266452 : 2158 
000000006 _ EF 03 FB 00008 CALLS #3, SIGNAL_FILE_ERROR : 
6E 07 OOODF 8$ DECL REC_ > 2151 
52 6E 01 000E1 9$ CMPL = REC™N, R2 : 
cE 18 OOOE4 BGEQ | ; 
40 AB 0304 C8 DO O00E6 MOVL § QUEUE_FAB+16, 64(SQH) > 2161 
68 01 v0 QOOEC 10$:  MOVL #1, DIAG_TRACE+32 + 2168 
7E 7C OOOEF CLRO 0. = (§P) : 2169 
38 AB DD O00F1 PUSHL  56(SQH) ; 
69 03 FB OO00F4 CALLS #3, TREE ; 
68 02 20 O0F7 MOVL #2, DIAG_TRACE+32 > 2174 
7E 1 7D OOFA MOVO #1. =(SP > 2175 | 
10 AB DD O00FD PUSHL  16(SQH) : 
69 0 FB 9100 CALLS #3, TREE : 
68 0 : 001 MOVL @ DIAG TRACE+32 : 2182 
50 8500 8F 3C 001 MOVZ2WL #34048, AIGHEST_ENTRY_NUMBER > 2184 
54 01 CE 001 MNEGL #1, HIGHEST_ENTRY_OFFSET : 2186 
52 14 AB 9E 0010 MOVAB  20(SQH), R2 > 2189 | 
51 07 DO 0011 MOVL #7, N : | 
6241 D5 00115 11$:  TSTL  (RO)ENI : 
03 1 gut BEQL 12$ ; 
54 1 00 OO11A MOVL §N, HIGHEST_ENTRY_OFFSET > 2192 
08 11 0011D BRB 1%$ > 2191 | 
50 F060 £0 9£ Ol 12$:  MOVAB -4000(RO), HIGHEST_ENTRY_NUMBER : 2195 | 
EE 1 4 00124 SOBGEQ N, 11$ : 2187 | 
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2 
INI TQUEUE Initialize system job queue file 18-sép-1 4 00:10:35 AX-11 Bliss-32 V4.0-74 Page 44 
v04-001 127808- 1382 $9: 240 JOBCTL.SRCJINI TQUEVE.B32;3 9 7) 
8 0 OO1E MOVL #11, DIAG_TRACE+32 : 2285) 
E oF » if8 MOVG «#7, _ = (SP) : $362 
4 0D 166 PUSHL SAVED _PENDING_BATCH_LIST : 
69 03 FB 1€ CALLS @# FE : 
8 C : 1EB8 MOVL #12, DIAG_TRACE+32 : 3287 
E D TEE MOVO #7, + =(SP) + 2288 
3 DD OO1F PUSHL SAVED_PENDING_PRINT_LIST : | 
69 FB 1F3 CALLS #3, TREE : 
68 D p 186 MOVL #1%, DIAG_TRACE+32 : 3289. 
7E 7 7D OO1F MOVO = #7, =(SP) t 2290. 
3¢ DD OO1FC PUSHL SAVED _TIMER_LIST : | 
69 8 F a CALLS #3, TREE § 
68 : D 0 MOVL #14, DIAG_TRACE+32 > 2295. 
53 0304 CB D0 00 04 MOVL GUEUE_FABT16, R3 : 2296 
52 4 DO 00209 MOVL #1, REC_N : 
A 11 0020C BRB 1 : 
FF A24A 95 00 OF 19$: TSTB = = 1 (REC_N) CRTMJ : 2298 
¢4 18 0021 BGEQ 21$ ; 
2 oD 00 14 PUSHL REC_N > 2304 
000000006 EF 01 FB 00216 CALLS #1, ~READ_RECORD : 
07 04 AO 91 00210 CMPB Os GC REC), 87 : 2305) 
¢ 12 00221 BNEQ 20$ ; | 
£ p4 00223 CLRL =(SP) : 2306) 
7E 0407 BF 3C 00225 MOVZ2WL #1031, -(SP) ; 
32 DD 0022A PUSHL REC_N : 
69 03 FB 0022C CALLS #3, TREE : 
52 DD OOD2F 208: PUSHL REC_N : 2307 
000000006 Ef 01 FB 00¢ 1 CALLS #1, RELEASE_RECORD : 
2 2 53 F300 38 21$: AOBLEQ R3 ECLN : 2296 
68 FFFFOOOO 8F 00 0023C MOVL #655367 DIAG_TRACE+32 : 2313 
56 38 AB DO 00243 MOVL  56(SQH) FREECN : 2317 
0200 &F 00 bE i“ 00 2c 99 47 MOVCS #0, (SPS, #0,7#512, BUFFER : 2318 
036c = C8 10 AE 9E 00 5 MOVAB BUFFER QuEvE RAB+40 > 2319 
0B 0160 8 03 £1 00256 BBC a FLAGS, 228 : 2520 
0348 (800100010 8F D0 0025¢ MOVL #1048592, QUEUE_RAB+4 : 2321 
05 11 00265 BRB 2 F 
0348 C8 10 D0 00 67 28: MOVL #16, QUEUE_RAB+4 : 2322 
04 AE 0304 C8 00 00 of $: MOVL QUEVE_FAB+T6, REC_N : 2325 
44 11 00272 BRB 26$ ; 
50 SA 06 =A c 0274 248 ADDL3 REC_N, RTM, RO ; 
FF Aad 95 00279 STB. = = 1 (ROS ; 
: 18 0027¢ BGEQ 25$ ; 
10 AE 6 00 9 3 MOVL FREE_N, BUFFER ; 
56 06 AE D 8 MOVL REC_R, FREE_N ; 
0374 C8 04 AE 9E 00 MOVAB RECN, QUEUE RAB+48 F 
08 AB D6 C INCL DIAG_TRACE+40 ; 
44 =O 6 F INCL DIAG COUNT+4 ; 
0344 CB OF 32 PUSHAB QUEUE RAB ; 
000000006 99 gi FB CALLS #1, S¥ssPur F | 
1 f 9D BLBS = RO, -258 ; | 
44 (CB SF 002A0 PUSHAB QUEUE_RAB : 2335. 
F4 9F O02A4 PUSHAB Q EVE FAB ; | 
00041004 8F DD O02A8 PUSHL #266452 : 2336) 
000000006 EF 3 FB AE CALLS #3, SIGNAL_FILE_ERROR : | 
04 AE D & 358: DECL RECN ; 2323 
02 04 AE D1 00288 268: CMPL = REC™N, #2 ; 
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ROUTINE COLD_START_NEW_FILE: NOVALUE= 


'e4 


' 
FUNCTIONAL DESCRIPTION: 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BUFFER: BBLOCKCSYM$S_SYM); 


Link all records to the free List. 


ABSL_RB : 
IF .FCAGSCFLAGS-V_QUEUE SHARED) 
THEN QUEUE_RABCRABSC_ 
ELSE QUEUE ~RABCRABSL ROP 
DECR REC ke 


G! 
QUEUE RABCRABSL _KBF } = REC_N; 
DIAG _TOUNTC1) =~.DIAG_COUNTL1) + 1; 
1 NOT $PUT (RAB=QUEUE ~RAB) 
SIGNAL_FILE_ERROR( 

JBCS_WRITEERR WE UEEKT SEVERE. 


QUEUE FAB ; 
BUF FERCSYMSL_CINK3 = .REC_N; 


= RABSM_UIF; 


Initialize the queue header record. 


CHSFILL(O, SYM$S SYn, BUFFER); 
GUFFERESTASE TYPE) = SYM$ 
BUFFER 


2 
1b-sop-19 4 
14-Sep-1984 


This routine initializes a newly created queue file. 


' Record buffer 


= RABSM_UIF OR RABSM_NLK 
FABSL_ALQ]~T0 4 po 


H; 
SQHSW-STRUCTURE_LEVEL)] = SQHSK_STRUCTURE_LEVEL; 
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44 BUF FERCSQHSL_FORM_INDEX_LIST] = .SFX_KBF 
44 BUF FERCSQHSL-FREE-LIST) = 4: 
444 2 BUFFERCSQHSL-HIGHEST RECORD) = - QUEUE _FABCFABSL_ALQ]; 
445 BUFFER SQHSL-NEXT ENTRY NUMBER] = | 
446 BUFF FER SQHSL gti GHEST ENTRY _NUMBER] = SQHSS_ENTRY_BITMAP * 8; 
447 E ARABLRABS L_KBFJ~= SQH"KBF; 
448 bt ae TOUNTC1) =".DIAG §_COUNTLTI +1; 
1F NOT $PUT (RAB=QUEUE— 
| 
SIGNAL_FILE ERROR( 
Jets URTTEERR + STS$K. ~SEVERE, | 


apEUE FAB, QUEUE_R 


CHSFILL(O, SYMSS YM, BUFFER) ; 


Initialize the default form definition record. 
BUF FERCSYMSB_TYPE YM$K i 


ERLSF 
eet SFMSB_MARGIN “BOTTOM? = 


OVE ¢ 
RZCHARCOUNT('DEFAULT') + 1, 
UPLIT BYTE (ZASCIC "DEFAULT"), 

BUFFERESFNST NAME); 
| 
| 
| 


VE 
er Beta ithe tence default’) + 1 


Vt Pima default' by 

LOE EERE SFAST DESCRIPTIO 

prye cores NARE surggntsrair NAME], BUFFERCSFM$T_STOCK)); 

EUE_RABCR $L _KBF] = SFM_KBF; 
COUNTC1 -DIAG G_COUNTL1]. + 1; 

NOT T $PUT(RAB= QUEUE ~RAB) 


SIGNAL_FILE_ERRO 
Jats URTTEERR + STSS$K_SEVERE, 
ape OE FAB, QUEUE_RAB); 


BEBE EEE EE FAWN PPIPIPINYIPIDININY 2 2 = OS OS SO 


o oO 


; Initialize the initial form index record. 


SuErERE WA SYMSS_SYM, BUFFER); 
BUFFERCSYMSB_TYPE] = SYMSK_ SFX; 


0000 09 09 09 09 00 SINISE SSS NS SPA AAA AAA A MIMI 
AME WN © OOO NAME WN OOONAULS WN (OVO DNOULSWN OO 


THEN 
SIGNAL FILE ERROR 
Jets URTTEERR. + STSSK_SEVERE, 
QUEUE FAB, QUEUE_RAB); 


PAAPAMMAMNMAMNMNIN 


487 ENARCOUNT(* DEFAULT? Ls 

488 UPLIT BYTE (ZASCIC faut’ 

489 BBL OCK BUFFERESYMST ais stist NAME }) ; 

490 2 BBLOCKCBUFFERCSYMST ORA_LINK] = .SFM_KBF; 

491 2 QUE RABSL_ KBR] = Si | 

49 DIAG G COUNTC1) =~.DIAG_COUNT[1]°¢ ie | 

495 F NOT $PUT(RAB=QUEUE RAB) | 
| 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee eee eee 
Fat ae at at at at ot ot et et ee ee ee ee ee ee 


° 
_ 
. 
° 
. 
. 
7 
e 
. 
. 
° 
o 
a 
oe 
. 
e 
a 
gy 
+ 
° 
. 
. 
. 
e 
7 
o 
7 
6 
. 
e 
o 
« 
~ 
o 
. 
a 
2 
- 
+ 
o 
os 
o 
7 
e 
. 
e 
7 
a 
o 
e 
. 
cm 
. 
e 
. 
a 
. 
e 
. 
o 
a 
e 
> 
e 
. 
e 
° 
on 
2 
o 
* 
6 
. 
e 
” 
oO 
o 
e 
& 
e 
7 
e 
o 
o> 
. 
o 
. 
8 
= 
. 
. 
e 
. 
o 
. 
a 
2 
o 
e 
. 
a 
. 
a 
. 
o 
. 
os 
. 
a 
. 
e 
. 
e 


RIPDP PIP LAPIPIPIPINIPYININPIPIP PNY PINININIPI HAPUPININIPIPUNPIPINPININPIPOPUPININYNYNYD 
o 
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K 2 
Initialize system job queue file 16-Sep-1984 00:10:35 
eer es 137808-13Be 99:49:23 


WAIVIUIVIVIUT SE 
fololelelolololeo}s) 
NOUS WN—O”O 


Update the end of file pointer. 
if NOT $FLUSH(RAB=QUEUE_RAB) 
SIGNAL FILE_ERROR( 


JBCS_WRITEERR + STSSK_SEVERE, 
QUEUE_FAB, QUEUE_RAB); 


O3FC 00000 COLD_START_NEW_FILE: 
-WORD ~ Save R2,R3 
MOVAB SFX 


1 END; 
4C 55 41 45 44 07 9S P.AAD: 
6D 65 74 73 79 53 16 Q09C3 P.AAE: 
6C 75 61 66 65 64 20 009D2 
54 4C 55 41 46 45 44 O07 OO9DA P.AAF: 
59 F620 CF 9E 00002 
58 000000006 00 9€E 00007 
5? Q0000000G EF 9E 43 
56 00000000" EF 9€E 0001 
SE FDOFC CE 9€ QO00IC 
00 6E 00 2C 00021 
04 AE 00028 
28 AG 04 AE YE OO002A 
OA FE9C §= C6 03 €1 0002F 
04 A6 00100010 8F D0 00035 
04 11 0003D 
04 A6 10 DO QOO3F 1$: 
6E CO Ab DO 00043 28: 
24 11 00047 
30 = AG 6E YE 00049 3$: 
FDOO §3=¢€6 06 00040 
56 0D 00051 
68 01 Fe Benes 
OE 50 €8 00056 
56 DD 00059 
BO A6 9F 0005B 
00041004 8F DD QO05E 
67 03 F he: 
04 AE 6— D 067 4$: 
6— D Bones 
04 gf D1 0006D 5$: 
D? 18 0007 
00 6€ 00 2C 0007 
04 AE 07 
08 AE 4 90 00078 
10 AE 0401 F BO 0007F 
38 = AE 69 ? ie 
3C AE 04 D 089 
44 AE CO A6 00 0008 
4C AE 1 0 O88 
40 AE 0800 F 3C 00 


-ASCII 
-ASCII 


ASCII 


MOVL 
MOVZWL 


AX-11 of a TT V4.0-7 
JOBCTL.SRCJINI TQUEVE 


<7>\DEFAULT\ 
<22>\System-defined default\ 


<7>\DEFAULT\ 


R4,R5,R6,R7,R8B,RI 

KBF, R9 
SYSSPUT, R8 
SIGNAL FILE_ERROR, R7 


VEU ° 
-516(5P), SP 
#0, (SP), #0, #512, BUFFER 


BUFFER, QUEUE _RAB+40 
#3, FLAGS, 
#1648592, QUEUE_RAB+4 


#16, QUEUE_RAB+4 
QUEUE_FAB+T6, REC_N 


REC_N, QUEUE_RAB+48 
DIAG_COUNT+4 


a. 
R6 
YSSPUT 
$ 


AL_FILE_ERROR 
FER 


#4, BUFFER+4 
#1625, BUFFER+12 
SFX_KBF, BUFFER+5S2 

#4, “BUF FER+56 

QUEUE FAB+16, BUFFER+64 


# BOFFERS 
#2048, BUFFER+60 


4 
-832;3 
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2 | 
INI TQUEUE Initialize system job queue file bac -19 10:3 AX-11 Bliss-32 V4.0-74 P 49 | 
iy 1 r andi, 2-808-138 9:49:23 JOBCTL.SRCTINITOUEUE.B 2;3 a (8) 


; Routine Size: 353 bytes, Routine Base: CODE + 09E2 


1 4 
: 23 

30 Ab F8 A9 oF 9 MOVAB SQH_KBF, QUEUE_RAB+48 : 2647 F 
FDO 6 D A INCL DIAG_COUNT+4 + 2448 ; 
DD OO0A PUSHL * 2449 : 
68 1 Fe OA CALLS #1, SYS$PUT : : 
OE 0 € AA BLBS RO. 6$ : ; 
é BD OAD PUSHL 6 + 2451 ; 
BC Ab OF OOOAF PUSHAB QUEUE_FAB : ; 
00041054 8F DD 0089 PUSHL #266452 + 2452 ; 
67 3 FB 0008 CALLS #3, SIGNAL_FILE_ERROR : ; 
0200 &F 00 6E ns 00 2¢ 0088 6$ MOVC 0; (SP), #O, #512, BUFFER + 2458 3 
08 AE ; 20 aoe MOVB 3. BUFFER+4 + 2459 : 
10 AE (8 BISB2 # BUFFER*12 + 2460 : 
FFSA CD 0642 8F B0 doce MOVW #1602, BUFFER+346 + 2461 : 
FFIO CD 0983 «C9 g 8 00D MOVC3 #8, P.AAD, BUFFER+272 + 2466 ; 
14 AE 098B «69 1 90008 MOVC aes, P.AAE BUPFER#16 + 2470 : 
FF3G CD FF10 CD 20 8 OO0E MOVC3) ff : BUFFER+272, BUFFER+308 + 2471 F 
FF58 CD 84 §8F 9B OOOEA MOVZBW #132, BUFFER+344 + 247 : 
30 Ab FC A9 9E OO0FO MOVAB SFM_KBF, QUEUE_RAB+48 + 247 ; 
FD00 «= CB ODS 000FS INCL  DIAG_COUNT+4 + 2474 : 
56 DD 000F9 PUSHL R + 2475 : 
68 01 FB 000FB CALLS #1, SYSS$PUT : ; 
OE 50 €8 OOOFE BLBS RO. 7$ : : 
56 DD 00101 PUSHL  R6 + 2477 ; 
BO Ab 9F 00103 PUSHAB QUEUE_FAB : : 
000410D4 8F DD 00106 PUSHL #266452 + 2478 ; 
67 03 FB 9019¢ CALLS #3, SIGNAL_FILE_ERROR : ; 
0200 &F 00 6E 00 2c 00108 7$ MovCS #0, (SP), #O, #512, BUFFER + 2484 ; 
08 AE 03 90 00118 MOVB. #3, BUFFER+4 + 2485 F 
10 AE 0902s C9 08 28 0011C MOVC3 #8. P.AAF, BUFFER+12 + 2489 F 
-. 2 FC =A9 «DO 00123 MOVL SFM_KBF, BUFFER+48 + 2490 ; 
30 A 69 9E 00128 MOVAB SFX"KBF. QUEUE _RAB+48 : 2491 : 
FD00 C6 D6 O012C INCL DIAG_COUNT+4 : 2492 ; 
56 DD 00130 PUSHL + 2493 ; 
68 01 FB 00132 CALLS #1, SYSS$PUT : ; 
OE 50 €8 00% LBS ss RO. BS : ; 
56 DD 00138 PUSHL + 2495 ; 
BO A6 9F OO13A PUSHAB QUEUE_FAB : ; 
000410D4 8F DD 001 p PUSHL #266452 + 2496 ; 
67 03 FB 0014 CALLS #3, SIGNAL_FILE_ERROR : : 
56 DD 00146 8$: PUSHL : 2502 : 
000000006 00 01 FB 0014 CALLS #1, SYSSFLUSH : ; 
OE 20 EB O014F LBS) —séRO, *9S ; ; 
6 DD 00152 PUSHL 6 : 2504 : 
BO Ad 9F 0134 PUSHAB QUEUE_FAB : : 
00041004 BF DD 00157 PUSHL #266452 2505 ; 
67 3 FB 0014p CALLS #3, SIGNAL_FILE_ERROR : F 
04 00160 9$ ET : 2507 : 
} . 
| 6 


M 2 
as eg bigot hasten mad i IESEgHOMs SRNGRE | WRGLL MeN 


: 1078 208 ! GLOBAL ROUTINE WARM_START_EXISTING_FILE(SYSID): NOVALUE= 

7 

> 1480 21 1 | FUNCTIONAL DESCRIPTION: 

> 1481 2] 1! This routine reinitializes an existing queue file if this job controller 
; 1088 aie : } is not the first accessor. 

> 1484 316 1 | INPUT PARAMETERS: 

3 leg? at ! SYSID - Pointer to system ID. 

> 1487 519 1) IMPLICIT INPUTS: 

eo aed 

> 1490 2] i QUTPUT PARAMETERS: 

ge ba ti. 

; 1298 525 1) IMPLICIT OUTPUTS: 

1498 $358 fi — 

> 1496 2528 1 | ROUTINE VALUE: 

1098 $385 | i mi 

> 1499 2531 1 | SIDE EFFECTS: 

: 1500 $236 . % NONE 

3; 1501 535 1! 

: 1502 2534 1 !== 

3; 1503 $232 1 

1808 $330 5 PocaL 

: 1506 2538 2 SQH: REF BBLOCK, ! Pointer to SQH 

3; 1507 2539 2 S$Qx: REF BBLOCK, ! Pointer to SQX 

3; 1508 2540 2 SQX_N ' Record number of SQX 

3; 1509 $20) 2 SQX"NS, ' Record number of successor of SQX 
; 1510 20g 2 SQE: REF BBLOCK, ' Pointer to SQX entr 

3; 1511 2543 2 SMQ_N, ! Record number of SM 

3 1512 2544 2 SMQ: REF BBLOCK, ! Pointer to SMQ 

3 1515 2545 2 SJH_NP, ' Record number of predecessor of SJH 
3 1514 2546 2 SJH_P: REF BBLOCK, ! Pointer to predecessor of SJH 
3 1515 2547 2 SJH_N, ! Record number of SJH 

3: 1516 2548 SJH: REF BBLOCK, ' Pointer to SJH 

3 1517 2549 SJH_NS; ! Record number of successor of SJH 
de ge 

: 1320 33¢ ! Read the queue header. 

; 1328 554 2 SQH = READ_RECORD(SQHSK_RECNO); 

We Be 

> 1525 328 ! Reinitialize all executor queues that were assigned to the failing or 
; 1356 326 restarting node. 

: 1528 330 SQX_N = .SQHCSQHSL_QUEVE_INDEX_LIST); 

: 1398 561 WHICE .SQX_N NEQ 0°DO 

: 133 363 _— 

: 1532 564 ! Read the queue index record. 
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N 2 | 
Initialize syst ob file p-1984 AX-11 Bliss<-32 V4.0-74 P 1 
a ee oe, ee 1oxgeP71382 99: 49:3 JOBCTL SRE TING TQUEUE 692; 3 age 3) | 


' 
SQX = READ_RECORD(.SQX_N); 


Scan the queue index record. 


SQE = SQXCSYMST -PATAI; 
INCR SQE_N FROM"O TO SQX$K_ENTRIES=1 DO 


IF CHSRCHAR(SQECSQX$T_NAME]) EQL 0 


EXITLOOP 
ELSE 
BEG! 
IF .SQECSQX$V_EXECUTORI 
THEN 


BEGIN 
SMQ = READ_RECOR otare = ,SQECSQX$L_QUEUVE_LINK)); 
ten ete EQL(.SYSID, SK acsmast _SYSIDI) 

BEGIN 

Reinitialize the queue header as appropriate. 


éMOCSMOSL ~STATUsi = 0; 
SMOCSMQS$V-STOPPED) = TRU 

CLEAR PINE Shar nasa ACH eC EGTIMI); 
SMOCSMOQSL TI] = 0; 


PARAEDR_ER Dri & BP BB BEE EE PA 
MFEWUN $$ O OONOAVUESWN HO DONAUSWN OO OONOUSW 
OOOO O0O000 0000090900 09 09 09 0909 SII NIN SIN NINO OOOO 


QCSMQSL_ACM_GETCNTI = 
SMQCSMQSL-ACM-PAGECNT) = 0; 
SMQCSMQSL-ACM-QIOCNT] = 
SMOCSMQSL-ACM-SYMCPUTIM] = 0; | 
SMOCSMOSL~STREAM SCT] = 
SMQCSMQ$B~CURRENT_JOB_COUNT] = 0; | 
66 SMOCSMQ$B~STREAM_IN DER = 0; 
67 REWRITE RECORD (. Sma “ND; 
68 END | 
69 LSE 
0 2602 RELEASE_RECORD(.SMQ_N); | 
1 2603 D: 
2 2604 END; 
3 2605 
4 2606 
5 2607 SQE = .SQE + SQX$S_SOX; 
6 60 END; | 
60 
8 
9 
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2610 
2611 ! Advance to the next index block. 
0 sols i | 
1 61 X_NS = .SQXCSYMSL_LINK]; 
¢ 2614 RELEASE _RECORD(. SQX"N); 
615 $QX -SQX_NS; 
584 $16 “s 
585 61 
586 $18 : 
44 ahs Requeue or delete jobs that were executing on the failed or restarting queues. 
589 $65 SQX_N = ,SQHCSQH$L_QUEUE_INDEX_LIST); 


3 
NI TQUEUE Initialize system job queue file 1b-s2p-1986 99:19:73 AX-11 Oi fee oe V4.0=-74 
-001 14-Sep-1984 22:33:4 JOBCTL.SRCJINI TQUEVE .B32;3 


——— 


WHILE .SQX_N NEQ 0 DO 
BEGIN 


=] 


Am FWP OOOO UEWUD $0 OONOAUVE WN ( O OONAUE WN HOO ONAUESWWN—OODONAUS Win 


Read the queue index record. 
SQX = READ_RECORD(.SQX_N); 


Scan the queve index record. 


SQE = SQXCSYMST_DATA]; 
INCR SQE_N FROM"O TO SQX$K_ENTRIES=1 DO 


B 

ol EHORCHARCSOELSEKOT WANE 22 EQL 0 
EXITLOOP 

ELSE 


BEGI 
IF .SQECSQX$V_EXECUTORI 
THEN 


BEGIN 
SMQ = READ_RECORD(SMQ_N = .SQECSQX$L_QUEUE_LINK]); 
dF SVSID_E0L(.SYSID, SMOCSMQ$T_SYSIDJ) 


| 

HEN | 
BEGIN | 

| 

| 


OMEN OO DNAUE WN OOONOUS wr 


Requeue or delete each job, as appropriate. 


5 a ee 
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WWI AAAI IAI ROU NI I NINININID 2 2 OO SS S| SH QDOOCOOCOCOCOCOWOOOOOOVOO 8 


650 WHILE .SMQCSMQ$L_CURRENT_LIST] NEQ 0 DO 

651 BEGIN 

636 LOCAL 

65 SJH_N, ' Record number of SJH 

$38 SJH: REF BBLOCK; ! Pointer to SJH 

656 

oot SJH = READ_RECORD(SJH_N = .SMQCSMOQSL_CURRENT_LIST]); 
| 

o2) Check for a deallocated SJH on the current List. 

661 IF .SJHCSJH$L_QUEVE_LINK] EQL 0 

266 THEN 

266 BEGIN 

2664 SMQCSMQSL_CURRENT_LIST] = 0; 

665 EXITLOOP; 

666 H 

2667 

2668 UPDATE _GETQUI_DATA(.SJH_N, .SJH); 

2669 SMOCSMOSL_CURRENT_LISTJ~= .SJHCSYMSL_LINK); 


PAAAA AA AA AAA AAAAHAAAAA AAA AAA AAA AA AAA AAA AAOMIMNIMIVIVNIVIVIGIY 


Www 


Flush the SMQ so as not to corrupt current List. 


FLUSH_RECORD(.SMQ_N); 
) JHS$V SYSTER_FAILURE) = TRUE; 


JHES 
COMPLETE _JO 


~SJH_N, .SJH, 
SMQ 


0, 


SFFFF 


ee ee ee eee ee 


ee ee ee ee ee FE ee ed ee kd ed ed eid tet i ted ek dk ek ed ee Le eT) 


00000000 09 09 00 09 0 09 09 09 09 ~O ~O +009 09 60 09 00 0D OD 09 0D 09 09 00 III NOS SIO OS UT 
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3 
INI TQUEUVE Initialize system job queue fil ges -1984 :10:35 AX-11 32 V4.0-7 Ih 
you-0ot oo gr 800i 1387 99:39:73 . ¢ tue ro ot 


1 sieg; 4g 
14-Sep-1 JOBCTL.SRCJINI TQUEVE .852;3 
_SBCS_SYSFAIL OR STSSK_ERROR); 


N 
SMQCSMO$L_CURRENT_LIST_END] = 0; 
REWRITE _RECORD(. SAQ_N); 


3 


PWN“ OVONAUESWN “OC OONOULS WR —OOO~ 
o 
oO 


ico 


ELSE 
a OR ITS 


PAGAAAAAO 
NOUSWN—O”O 


C200 00 C9 CD CDCD CO 


END; 
688 


yyy yyy SS 
PPPS 


SQE = .SQE + SOX$S_SOX; | 
END; 


Advance to the next index block. 

SQX_NS = .SQXCSYMSL_LINK]; 
RELEASE_RECORD(.SQX_N); 
SQX_N =".S ; 


AAO 


} Purge references to this system from the incomplete service List. 
SCAN_INCOMPLETE_SERVICES(ISRV_K_PURGE_SYSID, ~SYSID); 


SIN NNSA AAAAA AAO 


~“ 
“ 


Purge open jobs for this system from the open job queue. 
SJH_NP = 0; 

SJH"N = .SQHCSQHSL_OPEN_LIST]; 

WHICE .SJH_N NEQ 0°DO 


| 
| 
| 
BEGIN | 
SJH = READ RECORD(.SJH_N); | 
| 


APAAAAAAAAAASAOAAAAAS 
scone 


CooNNn~N 


ao 
co 


SJH_NS = .SJHCSYMSL_LINK); 


00 00 00 G0 Co 
NOU EWN 


IF SYSID_EQL(.SYSID, SJHCSJH$T_SYSIDJ) 
THEN 


te) 
o 


BEGIN 
IF .SJH_NP EQL 0 
THEN 


SSO SSCS SESS 
SSS 


BEGIN 
CONE SOHSL OPEN_LIST] = .SJHCSYMSL LINK}; 
IF .SJHCSYMSL_CINK] EQL 0 THEN SQACSQH$L_OPEN_LIST_END) 


" 
oOo 


HEN” SQHCSQHSL_OPEN_LIST_ENDJ = .SJH_NP; 


SMQCSMQ 
REWRITE RECORDT.SMO_N); 
DELETE _SJH_RECORD(.SJH_N, .SJH); 
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INFO#250 :2729 
Referenced LOCAL symbol SJ P is probably not initialized 


: 1704 7 $ 4 END 

; 1705 7 3 ELSE 

: 17 738 4 BEGIN 

: 170 739 4 IF “SiMe NP NEQ 0 THEN REWRITE _RECORD(.SJH_NP); 

; 1708 740 4 SJH «SJH_N; 

3: 1709 741 & SIHCP = .$JH; 

; 1710 74 END; 

3: 1711 74 SJH. N = .SJH_NS; 

3 ar 744 ND; 

: 171 745 2 IF .SJH_NP NEQ 0 THEN REWRITE_RECORD(.SJH_NP); 

3 17146 yg 

3 1715 74 

3 rie oe } If the timer List is not empty, set a timer on the first job. 
; 1718 750 IF .SQHCSQHSL_TIMER_LIST] NEQ 0 

; 1719 751 THEN 

: 1720 P36 BEGIN 

3 1721 75 LOCAL 

3 Vise 754 JH_N, ! Record number of SJH 
: 172 2755 SJH: REF BBLOCK, i Pointer to SJH 

3 Vise si26 STATUS; i Status return 

; 1726 758 SJH = READ 437+) bee N = .SQHCSQHSL_TIMER_LIST)); 

3: 1727 P 2759 STA TUS = $SET 

; 1728 P 2760 3 DAYTIM= SMCS Ns -AFTER_TIME], 

: 1729 P 2761 3 ASTADR=AFTER_A 

> 1730 ree ; REQIDT=JBCS$K—AFTER_IDT); 

: 1731 276 ap » STATUS 

: 1736 2764 3 

: 173 2765 3 "SIGNAL (JBC c$_ aye OR STSSK_ERROR, 0, .STATUS); 

3 1734 $708 3 RELEASE_RECORD(. TSJH_ 
3: 1735 2767 2 END; 

3: 1736 the 2 

3: 1737 769 

; 1738 2770 ' Rewrite the queue header. 

: 1739 2771 ' 
; 1740 gore 2 REWRITE RECORD (SQHS$K_RECNO) ; 
3 1741 2773 1€ 


OFFC 00000 .ENTRY WARM_START_EXISTING_FILE, Save R2.R3,R4,R5.-; 2508 

SE 4 ¢2 0000 wm Boe : | 

1 0D 0008 PUSHL #1 : 2554. 

000000006 Ef 1 FB 0000 CALLS #1, READ_RECORD ; | 
5 D0 00 Of MOVL RO. S : 

58 64 AS 00 0001 MOVL 106(SQH), SQX_N : 3560 

} 13 1$ BNEQ $ > 2561 
00 1 BRw $ : 

DD iA 2$ PUSHL $QX_N > 2566 
000000006 EF 1 FB 0 I CALLS #1," READ _RECORD ; 
6E 0 pO 0002 MOVL RO. SOX : 
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SJH_N 
00000000G_ EF CALLS #3, COMPLETE_JOB 


76 (SMa) 
CALLS #1, REWRITE_RECORD 
BRB 17$ 

16$:  PUSHL SMQ_N 
CALLS #1, RELEASE_RECORD 

17$: ADDL2 #46 

18$: MOVL aSQX, SQX_NS 


SQX_N 
CALLS #1, RELEASE_RECORD 
MOVL § SQX_NS, SQX"N 


19$: MOVL SYSID, R4 
R4 
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58 00 

00000000G_ EF 

58 
54 04 


Bb 
CALLS #2, SCAN_INCOMPLETE_SERVICES 
MOVL got SOH), SJH_N 


00000000G_ EF 


56 4C 
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JH_N 
CALLS #1, READ_RECORD 
MOVL 0, SJH 

H), SJH_NS 
», 364(S5JH) 


4), 368(SJH) 
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: In 
iti -Sep- 710: - iss-32 V4.0-74 Page 57 
eo els Ss aetna hea ecco 1ESenr4984 Q0:10:35 YANG OLisgzdz yss 02742, 33 vc 
BRB 228 : 2721) 
+ RRB OM BL hee. tom 8 
1BF MOVL § SJH_NP, 80(SQH) ; 
ott tor. cs b0 1¢5 228: MOVE Soars, SMQ_N i 2732 
000000006 EF 9! FB OOICA CALLS #1, READ_RECORD ; 
5 Q D0 00101 OVE ican i eves 
019° $5 Bo orbs PUSHL SROLN : S78 
eoocoaeae FF oreo BF BB GnIeY BARA. bacaevgt®-teconm Ln 
oooo00006 ef i FB Ole CALLS #2, DELETE_SJH_RECORD : 2718. 
5 0 Oot ES 23$: TSTL SJH_NP 3 2739 
83 OD ool? PUSHL  SJH_NP ; | 
000000006 EF 01 FB OO1F4 CALLS #1. REWRITE RECORD * 9740 
Sh 38 pO Ouife + ROVE SUNT SUH : $ret 
SR Balen Be Roe sn ae 
53 D5 00906 268: STL SJH_NP i 2745 
0 13 Gosek bet F Beiee 
CALLS #1, REWRITE_RECORD | ‘ 
000000006 EF ao uk 09 15 a7: STL 194¢S0H) ; 2750) 
52 68 AS DO 00RI8 MOVL 104(SQH), SJH_N ; 2758, 
52 DD 0021C PUSHL ¥ Wagan ; | 
neeenens St AB 98h GAAS ff Rew tame 
7 PUSHAB AFTER_AST ; | 
RB iat eo ee aE ies 
—E OD = ° 
3 CALLS #4, SYSSSETIMR | 
hee A Rae ee i He 
7E D4 0023F LRL =( ; | 
0241 PUSHL #296026 : | 
oooooo00s 00 O47 o§ rB a oss. Gals i. LIBSSIGNAL 2766. 
000000006 EF gi FB a3? ai CALLS W1, RELEASE RECORD 5772 
000000006 EF o1 FB 00989 CALLS A, REWRITE RECORD 2773, 
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tgj SI CCCHF RL S56 NMED NEQ SS$_UNWIND AND NOT .SIGCCHFSL_SIG_NAME] 


wn 


BEGIN 
MCHUCHFSL_MCH_SAVROJ = .SIGCCHFSL_SIG_NAME]; 
ple 
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v04-001 19-808-1382 99:4 :40 JOBCTL.SRCJINI TQUEVE.832;3 9° 10) | 
; 1783 re } ROUTINE INITIALIZE_QUEUE_FILE_HANDLER(SIG,MCH)= 
1h ey it 
> 1767 778 1 | FUNCTIONAL DESCRIPTION: 
: 1748 779 1! This routine is a condition handler for INITIALIZE_QUEUVE_FILE. It 
: 1733 reo ! } unwinds the stack and returns status if an error occurs. 
: 1751 186 1 | INPUT PARAMETERS: 
3; 175 7 1! Standard VMS condition handler parameters. 
She Fes 1 i IMPLICIT INPUTS | 
; 1588 re 1 i NONE 
: 1756 787 (1! 
: 1757 2788 1 ! OUTPUT PARAMETERS: 
: 1758 789 1 / NONE | 
: 1759 790 1! 
: 1760 qed 1 ! IMPLICIT OUTPUTS: 
ie che 
: 1703 $ Foz 1 | ROUTINE VALUE: | 
3 1764 2795 1! If the signal is a success status, SS$_RESIGNAL; otherwise an unwind 
3; 1765 5/98 1} to caller of establisher with the failure status. 
3: 1766 797 1! 
3: 1767 798 1 ! SIDE EFFECTS: 
3; 1768 799 1! NONE 
3: 1769 00 1! 
Si 
; 2 ‘ 3 : BEGIN | 
: 1774 2805 SIG: REF BBLOCK, ' Pointer to signal vector 
3; 1775 2806 MCH: REF BBLOCK; ! Pointer to mechanism vector 
: its $808 
: 1778 2809 ! If the signal is a failure status, unwind to the caller with that status as 
3; 1779 § 0 !' the routine value. 
; 1780 1 
3; 178 2 § 
3 1 2 
3 1 2814 
3 1 2815 
: 6 
:1 5 & 
3 7 2819 
: + 2820 
3 3 2821 1 


SNS NSS NSS SNS SS 


Ptetetetetetetetetetet tote ttt 


SSSIEARE 


SS$_RESIGNAL 
END; 


~EXTRN SYSSUNWIND 
0000 00000 INITIALIZE QUEUE _FILE_HANDLER: 
word § i 


. ave nothing 3 gris 
04 AC dO 00002 MOVL SIG, RI : 
04 Al 01 00006 CMPL «= « (RI), #2336 


cow 
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-Sep-1984 JOBCTL.SR 
173 H § GLOBAL ROUTINE INITIALIZE_QUEUE_FILE= 
1794 'e+ 
795 i 
796 FUNCTIONAL. DESCRIPTION: 
ad This routine opens and initializes the system job queue file. 
799 INPUT PARAMETERS: 
800 NONE 
801 | 
oe stateces * | INPUTS: 
80 ONE 
804 
805 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

Completion status. 

SIDE EFFECTS: | 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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kk ak a a a a ak a at th at = = ot = I = 1 


BEGIN 
LOCAL 
BUFFER: BBLOCKESYMSS_SYM], 
DESC: ECTORC2) ! Utility descriptor 
RESNAM: BBL OCKE S05, ' Buffer for resource name 
STATUS_1, ! Status return 
ons ' Status return 
ae 3 !' Status return 
BUILTIN 
| 
3 ! Ensure that the queue reference count is zero, and establish the handler. 
3 86 ! If this routine encounters any errors, the logic im UNLOCK_QUEUE_FILE will 
th yey ensure that all resources are properly released. 
tH 865 au +3 UE_REFERENCE_ COUNT = 0; 
8 866 ° =" INITIALIZE_QUEUE “FILE HANDLER; 
837 867 
838 868 
839 869 ! Determine values for the initial file allocation (ALQ) and multibuffer count 
539 a09 (MBF) fields. 
ate 87 i If the SJCS_EXTEND_QUANTITY item code is not present or specified as 0, then 
84 87 i use the job-contoller default value. Likewise, if the SJC$_BUFFER_COU UNT item 
844 874 i code is not present or specified as 0, then use Re Job controller default 
845 875 i yalue. 
Be6 B76 i 
84 87 QUEUE _ALQ = .VALUE EXTEND QUANTITY; | 
848 878 IF ,QDEVE_ALQ EQL 0 THEN GUEVE_ALQ = JBC$K_QUEUE_ALQ; 


RR. 
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v04-001 Es 1ereee18ee 83:38:00 bacre $AesinG reve ve 65253 . aD | 
3: 1849 79 IF .QUEVE_ALQ LSSU 10 THEN QUEUE_ALQ = 10; 
$ 1320 $4 Q —_MBF = .VALUE_BUFFER_COUNT; 
: 1839 tee IF .QOEUE_MBF EQL 0 THEN QUEUE_MBF = JBCSK_QUEUE_MBF; 
: 185 8 
> 1854 Hn ! The following loop is executed once if the file is created or if it already 
> 1855 885 ! exists and has satisfactory attributes. Otherwise it is executed twice to 
: 1856 886 ! unconditionally create the file. However, if the /NEW_VERSION qualifier is 
3 182f Ht given, only execute the loop once to unconditionally create the file. 
3; 1859 889 DECR I FROM (CIF .ITEM_PRESENTCSJC$_NEW_VERSION] THEN 0 ELSE 1) TO 0 DO 
; 1860 44 BEGI 
: 1861 P 2891 SFAB_INIT(FAB=QUEUE_FAB, 
3 1366 Pp B36 LQ=,QUEUE_A 
: 186 P 289 DNASUPLIT BYTE('SYSSSYSTEM: JBCSYSQUE.DAT'), 
3: 1864 P 2894 DNS=ZCHARCOUNT ( "SYSSSYSTEM: JBCSYSQUE .DAT'), 
3; 1865 P 2895 FAC=<GET,PUT ,UPD> 
3 1866 P 896 FNA=. VALUE QUEUE _FILE_SPECIF ICATIONCSDSC_A_POINTER], 
3; 1867 P 2897 FNS=.VALUE_QUEUVE_FILE_SPECIFICATIONCSDSC_W_LENGTH), 
3: 1868 P 2898 FOP=CBT 
: 1869 P 2899 GBC=JBC$k_QUEUE_GBC, 
; 1870 P 2900 MRS=SYMSS_SYM, 
> 1871 P 2901 NAM=QUEUE_NAM, 
: 1876 P 308 ORG=SEQ, 
3; 187 P $30 RFM=F IX 
> 1874 P 2904 SHR=<SHRGET, SHRPUT, SHRUPD>, 
3; 1875 2905 XAB=QUEUE _XAB) ; 
3: 1876 2906 ; 
3: 1877 P 2907 SRAB_INIT(RAB=QUEUE_RAB, 
3; 1878 P 2908 ; FAB=QUEUE_FAB, 
3; 1879 P 2909 K 
: 1880 P 2910 MBC=JBCS$K_QUEUE_MBC, 
: 1881 P 2911 MBF =.QUEUE_MBF , 
3: 1882 P $3ig RAC=KEY 
3 1883 P 291 RSZ=SYM$S_SYM 
> 1884 e914 USZ=SYM$S_SYM) ; 
: 1885 915 
3; 1886 P $318 ; SNAM_INIT (NAM=QUEUE_NAM, 
> 1887 P 2917 ESA=QUEUE_RSA 
: 1888 P 918 ESS=NAMSC_MAXRSS, 
> 1889 P 2919 RSA=QUEUE_RSA 
; 1890 2920 RSS=NAMSC_MAXRSS) ; 
3 1996 P 3392 SXABPRO_INIT(XAB=QUEUE_XAB, 
: 189 P 29 PRO=<RWED,RWED,,>, 
> 1894 924 vic=C1,4)5; 
3: 1895 925 
: 1896 9 § QUEVE_FABCFABSV_CIFJ = .1; 
: 1897 9 
3; 1898 928 ; : 
3; 1899 929 ' Create the queue file or open an existing queue file, 
3 1300 9 } and connect the RAB. | 
; 1308 9 § 4 IF SCREATE (F AB=QUEUE_F AB) 
3; 190 933 3 THEN 
3; 1904 934 4 BEGIN 
3; 1905 2935 5 IF NOT SCONNECT(RAB=QUEUE_RAB) 


3 
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V04-001 seed, VenSep=1984 99:39:20 LodacTL SResINTTOUEUE 682; 3 atthb 
; 1906 9 $ 4 THEN 
; 1907 9 4 RETURN .QUEUVE_RABCRABSL_STS]; 
; 1908 938 4 ND 
; 1909 939 3 ELSE 
; 1910 940 4 BEGIN 
; 1911 941 4 F_.1 EQL 0 THEN RETURN .QUEUE_FABCFABSL_STSJ; 
; 1912 942 4 QUEUE _FABLFABSW_MRSJ = 0; 
3; 191 94 ND; 
3 1914 944 
; 1915 945 
; ib ay sone : Determine whether or not a new file was created. 
; 1918 $306 IF .QUEVE_ FABCFABSL_STS] EQL RMS$_CREATED OR NOT .QUEUVE_FABCFABS$V_CIFJ 
: 1919 2949 THEN FLAGSCFLAGS_V_QUEUVE_CREATED) = TRUE 
; 1350 2950 3 ELSE FLAGSCFLAGS_V_QUEUE_CREATED] = FALSE; 
3 1921 34h 3 
; 1366 928 3 
; 192 2953 3 ! Check the file attributes and the first block of the file to ensure that 
: 1924 2954 ; ' the file is suitable. 
: 1925 2955 : 
; 1926 2956 3 IF 
3 1927 2957 4&4 BEGIN 
; 1928 2958 4 IF .QUEVE_FABCFABSW_MRS) EQL SYMS$S_SYM 
; 1989 2959 4 AND .QUEUE_FABCFABSB_ORG) EQL FABSC_SEQ | 
; 1930 2960 4 AND .QUEUE_FABLFABSB_RAT] EQL 0 
: 1333 4d : + Mata ha FABSB_RFM) EQL FABSC_FIX 
: 1933 2963 4 IF .FLAGSCFLAGS_V_QUEUE_CREATED] 
3 1934 2964 4 THEN 
3 1935 2965 4 TRUE | 
: 1936 2966 4 ELSE 
3 1937 2967 5 
3; 1938 2968 5 QUEUE _RABCRABSL_KBF] = SQH KBF; 
3 1939 2969 5 QUEUE-RABCRABSL_ROP] = RABSM_NLK OR RABSM_RRL; 
; 1940 2970 5 QUEUE _RAB BAS SL UBF A = BU ; | 
> 1941 2971 5 DIAG CTOUNTCO) =".DIAG_COUNTCO) + 1; | 
F 19e 297 g IF SGET(RAB=QUEUE _RABY | 
3: 1944 2974 5 gk TS dh hae, EQL SYM$K_SQH AND 
3 1945 2975 5 ~BUFFERCSQH$SW_STRUCTURE_LEVEL] EQL SQHS$K_STRUCTURE_LEVEL 
3 1946 2976 «5 
3: 1947 2977 5 FALSE 
3 1948 2978 5 
3 1949 444 4 ELSE 
; 1950 980 4 FALSE 
; 1951 soe! 4 END 
: 1326 286 THEN 
3; 195 98 EXITLOOP; 
3 1954 984 
3 1955 985 re ; ; 
; 1956 986 ! Close the file and loop te uncendit ional ty create a new file. Display an 
3; 1957 987 ! informational message stating that the file found has an incompatible 
3; 1958 988 ! structure level. 
3 1959 989 : 
; 1960 990 4 IF NOT SCLOSE <F ABSOUEUE FAB) 
; 1961 991 ; THEN RETURN .QUEUE ty FABSL_S1S); 
> 1962 2992 IF .BUFFERCSYMS$B_TYPE) EQL SYMSK_SQH AND 
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v04-001 ; . Ve=Sep-1984 22:59:40 — EdoBCTL SRESINT TOUEUE 882; 3 it | 
: 1968 993 THERDUFFERCSQHSW_STRUCTURE LEVEL] NEQ SQHSK, STRUCTURE LEVEL 
; 1965 995 peri tie STRUCT_LEVEL OR STSSK_INFO, 
; 1966 96 1, .«BUFFERCSQH$W_STRUCTURE_LEVELJJ; 
: 1967 99 END; 
; 1968 998 
: 1969 999 
; 1300 Bo : Issue a message if the queue file was created. 
3 1306 00 IF .FLAGSCFLAGS_V_QUEUE_CREATED] 
; 197 00 THEN 
3 1974 004 BEGIN | 
: 1975 005 DES = .QUEUVE_NAMCNAMSB_RSLI; 
3: 1976 006 DESCL1) = .QUEUVE_NAMCNAMSL_RSA]; 
3; 1977 007 SIGNAL (JBC$_NEWQODEUE OR STSSK_INFO, 1, DESC); 
: 1978 3008 § END; 
3; 1979 3009 
; 1980 3010 
3; 1981 3011 POOR CU ROC EUOUTOUUURO ECO COTO UCU EU CUE CC UG eG Cee e eee aeeeeeeetegeueeegcggeugegggguans 
3: 1982 3012 2 ! Disable the following code segment as currently the queue file must be opened 
: 1983 3013 2 ! for shared access in order for RMS to support more than two local buffers. | 
3 1984 3014 eee UCU e eee eee eee eee cece cee c ae becececeacecaceceragceeeggeaens 
; bs +4 siz WORK_AREALO) = 1; ! Non-zero value disables option | 
; 1987 3017 2 ! First check to see if the use of a global buffer cache (FAB$W_GBC) has been 
; 1988 3018 2 ! specified (to be used in place of a local buffer cache (RABSB_MBF)). If global 
; 1989 3019 2 ! buffers are to be used, then file sharing must remain enabled (FABSB_SHR) and 
5 pa $059 § } the FLAGS_V_QUEUE_ SHARED flag set. Otherwise, try to optimize the access. 
3: 1992 3022 2 ! The queue file has been opened optimized for a cluster environment, that is, 
3: 1993 3023 2 ! it is open for shared access. Next determine whether or not the queue file 
3 1994 3024 2 ! really can be accessed by another job controller. If this node (1) is not | 
3; 1995 3025 2 ! <or cannot become> a member of a cluster, or (2) the queue file is on a device 
3 1996 3026 § ! that is not cluster-wide accessible, then we should optimize for a non-cluster 
3; 1997 3027 ! environment. To do this, we'll close the queue file and reopen it with the 
3; 1998 3028 2! user-provided-interlocking {UPI) option selected. This will prevent RMS from 
; 1999 3029 2 ! taking out locks on records in the local buffer cache which should reduce 
2 $one $034 § locking overhead considerably in a non-cluster environment. | 
: 2002 3032 2 FLAGSCFLAGS,v_QUEUE_SHARED] = TRUE; | 
3: 2004 3034 2 IF .QUEVE_FABCFAB$W_GBC] EQL 0 AND .WORK_AREACO] EQL 0 | 
; 2005 3035 THEN 
; $006 $038 BEGIN 
; 2007 03 WN ; 
; 2008 3038 DEVCHAR2: BBLOCK(4], ! 2nd device char longword | 
: s's84 3040 CLUSTER_MEMBER: BBLOCKL4]; : Cluster member status 
3 $014 041 pesceo) = .(QUEUE_NAMCNAM$T _DVIJ)<0,8>; ! Form a pte tog descriptor from 
3 2012 9) DESCC1) = QUEUE _NAMCNAMST_DVIJ + 1; ! a counted string 
: spl? P 304 STATUS 1 = $GETBVI 
: 2014 P 3044 EFN=JBC$K_SYNC_EFN, | 
3: 2015 P 3045 DEVNAM=DESC 
; 2016 P 046 ITMLST=UPL IT ( 
3; 2017 P 304 WORD(4, DVIS_DEVCHAR2), LONG(DEVCHAR2, 0), 
3; 2018 048 LON : 
: 2019 P 3049 STATUS_2 = SGETSYIW¢ 
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v04-001 14-Sep-1984 22:33:40 JOBCTL.SRCJINITQUEUE .832;3 
; 20 0 P 3050 EFN=JBCSK_SYNC_EFN, 
3; 2021 P 3051 ITMLST=UPLIT( 
; 20 ¢ P O26 WORD ( SYIS_CLUSTER_MEMBER), LONG(CLUSTER_MEMBER, 0), 
; 20 05 LONG(05)); 
3; 2024 054 
3; 2025 055 IF .STATUS_1 AND .STATUS_2 
; 2026 056 THEN 
3; 2027 057 4 BEGIN 
3 2028 058 5 IF (NOT .DEVCHAR2CDEV$V_CLUJ) OR (NOT .CLUSTER_MEMBER<O,1>) 
; soee 059 4 THEN 
; 20350 060 5 BEGIN 
H $03! 308) 5 FLAGSCFLAGS_V_QUEUE_SHARED] = FALSE; 
3; 2032 bes 6 IF NOT SCLOSETFAB=Q0EUE_F AB) 
; 2033 3063 5 THEN RETURN .QUEUE_FABLFABSL_STS); 
> 2034 3064 5 QUEUE FABCFABS$B_SHR] ="FABSM_SHRGET OR FABSM_UPI; 
3; 2035 $062 6 IF SOPEN(F AB=QUEUE _F AB) 
3; 2036 066 5 THEN 
3; 2037 3067 6 BEGIN 
3; 2038 3068 7 IF NOT SCONNECT(RAB=QUEUE_RAB) 
; 2039 3069 6 THEN RETURN .QUEUE_RABCRABSL_STS]; 
; 2040 3070 6 END 
3 2041 3071 5 ELSE RETURN .QUEVE_FABCFABSL_STSJ; 
3: 2042 3072 4 END; 
3 2043 3073 3 END; 
3 2044 3074 2 END; 
3 2045 3075 § 
3 2046 3076 : 
3 2047 3077 2 ! Take out the queue file master lock. The first job controller to access 
: 2048 3078 2 ! the queue file holds this lock, and is said to be the queue master. If 
; 2049 3079 2 i that job controller should fail, the next job controller to queue for the 
3 sooo epee : lock receives the completion AST, and can take necessary actions. 
3; 2052 z056 DESCLO) = 26; 
3 2053 3083 2 DESCL1) = RESNAM; 
3 2054 3084 RESNAMCO g. 0) = ‘JBC$'; 
> 2055 3085 2 CHSMOVE(22, QUEUE_NAMLNAMST_DVIJ, RESNAMC4,0,0,0)); 
3; 2056 P 3086 STATUS_1 = SENQ( 
3: 2057 P 3087 2 LKMODE=LCK$K_EXMODE 
; 2058 © 3088 2 LKSB=QUEVE_FILE_LKSB, 
3 2059 P 3089 $ FLAGS=LCKSM_SYNTSTS OR LCKSM_NODLCKWT, 
3; 2060 P 3090 RESNAM=DES 
: 2061 091 ASTADR=QUEUE_MASTER_AST); 
3 $066 Os IF NOT .STATUS_1”~ THEN RETURN .STATUS_1; 
3 $06 09 
3; 2064 094 
3; 2065 3095 ! Take out the queue lock. 
3: 2066 3096 ! 
3; 2067 add pe sce} = 3° 
> 2068 098 2 RESNAM 36. $2.0] = "LOCK’; 
; 2069 P 3099 2 STATUS 2 = $ENQW( 
3; 2070 P 3100 EFR=JBC$K_SYNC_EFN 
: 2071 P 3101 LKMODE=LCRSK_ERMODE 
: ore P 198 LKSB=QUEUE_LOCK_LKSB, 
: 207 10 RESNAM=DEST); 
3 2074 Hf IF .STATUS_2 THEN STATUS_2 = .QUEUE_LOCK_LKSB(0]; 
3; 2075 105 If NOT . TUS THEN RETURN .STATUS_2; 
; 2076 3106 FLAGSCFLAGS_V_GUEVE_LOCKED) = TRUE; 


Page 64. 
° (11) | 


ef 


JOBCTL.SRC 


; 2077 107 

; 2078 108 

; 2079 109 ' If this is not the first access to the file, do a brief reconstruction. 

; 2080 110 ' Otherwise, if the file was just created then initialize it. If not, then 
; oe M3 this is the first access to an existing file, so do a full reconstruction. 
; 208 118 If _ .FLAGSCFLAGS_V_OMIT_QF_INITJ ' For debugging purposes omit 

; 2084 114 ! initialization processing to examine 
; 2086 12 = DIAG_TRACEC8) = -1 ! a@ corrupted queue file on-line 

5 eH 7 IF_.STATUS_1<0,16> NEQ SS$_SYNCH 

; 2089 119 $ WARM_START_EXISTING_FILE(THIS_SYSID) 

:; 2090 120 2 SE 

; 2091 3121 2 IF .FLAGSCFLAGS_V_QUEUE_ CREATED] 

; 209 3156 2 THEN COLD_START_NEW_FILE() 

:; 209 312 § ELSE COLD_START_EXISTING_FILE(); 

: 2094 3124 

; 2095 3125 2 ; 

: 2096 3126 2 ! Enable this job controller's remote request lock. 

; 2097 3127 ! 

; 2098 3128 peSceoy = 10; 

: 2099 3129 DESCE1] = RESNAM; 

; 2100 3130 RESNAM(CO,0,32,0] = ‘JBC$'; 

; 2101 3131 COPY SYSID(THIS SYSID, RESNAM(4,0,0,0)); 

: 2102 p $138 STATOS_3 = SENQQD( 

: 2103 P 313 EFR=JBCS$K_SYNC_EFN 

> 2104 P 3134 LKMODE=LCRSK_EXMODE, 

3 2105 P 3135 2 LKSB=REMOTE_REQUEST_LKSB, 

: 2106 P 3136 FLAGS=LCKSM_NOQUEUVE OR LCKSM_NODLCKBLK, 

3; 2107 P 3137 RESNAM=DES 

: 2108 3138 BLKAST=REMOTE_BLOCKING_AST); 

3; 2109 3139 2 IF .STATUS_3 — STATUS_3 = .REMOTE_REQUEST_LKSBLOJ; 

3 gii9 3129 2 IF NOT .STATUS_3 AND .STATUS_3<0,16> NEQ SS$~NOTQUEUED THEN RETURN .STATUS_3; 
3 sit¢ 3142 $ 

3; 211 3145 2 ! Increment the queve's reference count to indicate a successful operation, 
; sits sié¢ 2 and return success. 

3; 2116 3146 $ QUEUE _REFERENCE_COUNT = 1; 

7 2117 3147 2 SS$_NORMAL 

: 2118 3148 1 END; 


-PSECT DATA,NOEXE,2 
00000 DEVCHAR2: 


; 4 
00004 CLUSTER_MEMBER: 
-BLKB 


4 
-PSECT CODE.NOWRT,2 


53 43 42 4A 3A 4D 45 54 53 59 53 $ 53 59 53 QODDO P.AAG: .ASCII \SYSSSYSTEM: JBCSYSQUE.DAT\ 
54 41 44 2— 45 55 51 53 59 QODDF 
Q0OE6 0004 OODE8 P.AAH: .WORD 4, 230 


4 
INI TQUEUE Initialize system job queue file 1s -1984 10:35 AX-11 Bliss-32 V4.0-74 
yoa~007 a 12708-1382 99:49:23 CIINI TOUEUE B32; 3 


—— ee. 


. 
om 
. 
8 
© 
a 
. 
a 
. 
oe 
. 
6 
- 
e 
- 
° 
. 
e 
. 
. 
. 
. 
> 
. 
. 
os 
. 
e 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
© 
& 
. 
o 
7 
e 
. 
e 
. 
e 
. 
e 
° 
o 
. 
” 
. 
e 
. 
o 
7 
* 
. 
e 
. 
a 
. 
e 
* 
e 
. 
e 
. 
e 
o 
7 
o 
. 
° 
7 
a 
. 
a 
e 
. 
a 
. 
a 
. 
e 
. 
e 
o 
e 
. 
e 
. 
o 
. 
oe 
. 
os 
. 
o 
o 
” 
e 
. 
e 


<o 


oc 


IB} TOUCUE Initialize system job queue file 
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te 
nw 
33° 
3 3 
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sar ri 99% 38:3 ‘OBCTLe SRCJINITQUEUE. 3 2:3 . (11 


-ADDRESS DEVCHAR2 
LONG 


1 

1 
0000000 poet 
44444 ai 0 
000000 DF4 Lone 0 

OFF 4d ODF8 P.AAL: ORD 1, 4303 

0000000" QODFC 
St 0E00 0 
0000000 00E04 0 


“ADDRESS. CLUSTER _MEMBER ; 

“LONG 
$RMS_PTR= QUEUE _FAB | : 
$RMS~PTR= QUEUE -RAB : 
$RMS_PTR= QUEUE “NAM | ; 
$RMS_PTR= QUEUE 


me AB 

~EXTRN SVSSCREATE, gaescommect 
.EXTRN SYS$GET CLOSE 
“EXTRN SYS$G ETovive SYSSGETSYIW 
~EXTRN SYSS0PEN N, SYSSENQ 


OFFC 00000 ENTRY INIT IA LIZE QUEUE FILE, Save R2,R3,R4,R5,R6,-; 2822. 
5B 000000006 00 9€ 00002 MOVAB ves cases Os : 
5a 000000006 00 9E 00009 MOVAB SYSSCONN NECT, R10 : 
59 AF 9E 00010 MOVAB INITIALIZE_QUEUE_FILE_HANDLER, R9 : | 
58 00000000" EF 9E 00014 MOVAB FLAGS RB ; 
5E FDD8 CE 9E 0001B MOVAB 52( : 

38 A8 D4 00020 CLRL_ QUEUE REFERENCE > 2865 | 
6D 69 9E 00023 MOVAB’ INITIALIZE SUEDE. pute HANDLER, (FP) ; 2866) 
0360 C8 oc8c 6—lc8 C3 BO0e6 MOVZWL VALUE_EXTEND_QUANTITY, QUEUE _ALQ 3 2877) 
06 12 00020 BNEQ I$ : 2878) 
0360 8 64 BF 9A 000¢F MOVZBL #100, QUEUE_ALQ ; 
OA 0360 CB D1 00035 1$: CMPL due ue _ALQ, #10 : 2879 

05 1& O003A BGEQU 2$ ; 

0360 C8 OA DO 0003C MOVL #10, ; 
0364 C8 0044 C8 90 00041 2$: MOVB VALUE OBUFFERS COUNT, QUEUE _MBF : 2880 
05 12 00048 BNEQ > 2881 

0364 (8 32 90 O004A MOVB #50, QUEUE ; 
04 OcOD CB E9 OOO4F 38 BLBC ~——s ITEM. PRESENTS 13, 4$ : 2889 

56 D4 00054 CLRL = R6 : 

03 11 00056 BRB 5$ : 

56 gi DO 00058 43: MOVL #1, R6 : 
4 b6 00058 5$: na: lk : 2992 

O1AC 31 00050 BRW 15$ ; 

0050 =&F 00 6E ae 09 2c 90060 6$ MOVCS #0, (SP), #0, #80, $RMS_PTR > 2905 
0116 «8 $008 BF 80 S09GA MOVW #20483, _$RMS_PTR | 
0118 C8 00200000 8F DO 00071 MOVL #2097152, $RAS_PTR : | 
0124 C8 0360 C8 DO O007A MOVL QUEUE AL ALG SRMS "BTRSG ; 
012A «(C8 08 8F BO 00081 MOVW off ae R¥22 : | 

0131 ¢B 94 00088 CLRB ss SRMS bras +2 : | 
0133 8 01 90 0008C¢ MOVE #1, SRMS PTR+31 ; | 
0138 «CB 0208 C8 9€ 00091 MOVAB Queue KAB. "is -PTRe36 ; | 
O13c CB Tag 8 4 0098 MOVAB QUEUE-NAM, $RMS~PTR+40 F 
3140 «C8 1165 C8 DO 0009F MOVL VALUE SQUEUE_ PILE. SPECIFICATION+2, ; 
144 C8 FFI CF 9 O0A6 MOVAB P, AAG. SRMS_P 3 
148 (CB 116 c8 90 OOOAD MOVB VALUE. QUEUE~ FILE. SeECIFICATION, SRMS PIRES | 
0149 (8 18 90 000B4 MOVB #24, SRMS_PT 


D gf 
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5 1on8e8- 138s 99:48:28 PANEL Othe Tae toe go. aD 
014A CB 9200 8F BO 0089 MOVW 4512, shts, PTR+54 : : 
15¢ ¢ 84 0c0 CLRW : ; 
ae 00 6E 0166 C a0¢e MOVCS 70, sey $0, #68, SRMS_PTR : 2914 : 
0164 CB O18 F 80 Oce MOVW #17409, SRMS, rR : : 
182 8 1 90 000D MOVB ope : ; 
184 C¢8 02000200 8F p0 ODA MOVL #385 ace "SRS _PTR+32 : F 
198 C8 4 9 OES MOVB : : 
194 C 0364 c8 90 000E MOVB auéue RMBF “Sk _PTR+54 : ; 
198 C8 1 90 OOOEF MOVB UE ame : ; 
O1A0—¢ 0114 CB 9E O00F4 MOVAB duéur PAB. TeRas P R+60 : | F 
Be 00 6E wie 09 2¢ o108 MOVC w0. Fsp). #0, $96. RSRMS_ PTR + 2920 : 
O1A8 «C8 6002 = &F 80 0010 MOVW #24578. SRMS_PTR : ; 
O1AA CB 01 BE 0010C MNEGB $RMS_PTR? : ‘ 
O1AC §=6C8 = (0260) «CB CO9E «(00111 MOVAB auéue RSK, $RMS_PTR+4 : ; 
0182 8 01 BE 00118 MNEGB $RMS : : 
01B4 «C2 0260 C8 9E 0011D MOV duéur Bek. Means PTR+12 F ; 
0058 = BF 00 6£ 020 08 ec Opis. mMOovCS #0, (SP), #0, #88, SRMS_PTR : 2924 : 
0208 8 581 3 8F BO 001 E MOVW #22547, $RMS_PTR : | : 
0210 (8 8F BO 001 MOV #256 SRMS_PTR+8 : | : 
0214 (8 ooo1b00e 8F DO 001 ‘ MOVL #65546, $RMS_PTR+12 ; | : 
0118 C8 01 01 56 FO 0014 INSV I, #1, #1, QOEUE_FAB+7 3 2926) : 
0114 C8 OF 0014¢ PUSHAB QUEUE F : 2932, : 
000000006 60 01 FB 90150 CALLS #1, SISSCREATE : ; 
0D 50 €9 0015 BLBC ~—=_ RO, 7S ; | : 
0164 CB 9F 0015A PUSHAB QUEUE RAB ; 2935) : 
6A 01 FB 0015E CALLS #1, SYSSCONNECT ; ‘ 
OE 50 : 00161 BLBS RO, 10$ ; ; 
015F 31 00164 BRW 23$ : 2937) : 
56 DS 00167 7$ TSTL 3 2941) ‘ 
92 12 00169 BNEQ 3 ; 
015E 31 00168 8$: BRW 24$ : : 
014A CB B4 00166 9$: CLRW  QUEUE_FAB+54 > 2942 F 
00010619 = 8F 011¢ ¢B D1 00172 10$: CMPL QUEUE™ ~FABse. #67097 : 2948 | : 
06 13 00178 BEQL ; : 
05 0118 «8 01 £0 00170 BBS #1, QUEUE_FAB+7, 12$ : ; 
bE 04 88 00183 11$: BISB2 #4. FLAGS : 2949. : 
03 11 00186 BRB 13§ ; F 
68 04 8A 00188 12$: BICB2 #4, FLAGS : 2950 | ; 
0200 8F 014A C8 81 00188 138: CMW QUEUE _FAB+54, #512 ; 2958 | : 
0131 C8 9 00194 TSTB © QUEUE_FAB+29 : 2959 : 
4 198 BNEQ : | : 
0132 «C8 9 00194 TSTB © QUEUE_FAB+30 > 2960. ; 
41 12 0019€ BNEQ : 3 
01 0133 «C8 91 90140 CMPB Tp om # : 2961. : 
A iF 1A5 BNEQ ; F 
6D 68 2 f 1A7 BBS #2, FLA $ > 2963 | ; 
019% C F049 CF 1AB MOVAB SQH cat OS EVE RAB+48 : 3968 
0168 ¢8 00100008 8F DO 001B2 MOVL #1058 gf, a SEUE RAB+4 > 2969 | 
0188 (8 28 AE 9€ 001BB MOVAB BUFFER dueUE_ RAB+36 > 2970 | 
FE6O «OC p6 01C1 INCL _ DIAG_COUN : 2971 
0164 CB 9F 001C5 PUSHAB QUEUE RAB : 2972 
000000006 00 g1 FB 01¢9 CALLS . SYS$GET ; 
O€ 0 €9 00100 BLBC RO. 14$ : 


—_—_—————— 
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04 2c «=AE «91 (0010 CMPB UFFER+4, #4 + 2976 ; 

08 Ne 1b3 BNEQ BY : ; 

0401 BF 34 AE B61 00109 CMPW BUFFER*12, #1025 + 2975) : 

33 13 001DF BEQL § ; : 

0114 9F OO1E1 14%: PUSHAB QUEUE FAB + 2990 : 

68 1 FB TES CALLS #1, SYSSCLOSE : | : 

80 0 E 1E BLBC ~=—_-«aRO : | : 

04 2c «AE O91 OO1EB CMPB 8s BUFFER+4, #4 > 2992. : 

18 12 OO1EF BNEQ , : | ; 

0401 BF 34 AF 8] O1Fy cpu BUFFER+12, #1025 ; 2993, : 

7E 3 OE: o1F9 MOVZWL BUFFER+12, -(SP) : 2996 | ; 

01 DD OO1FD PUSHL : 2995 ; 

000484AB 8F DD OO1FF PUSHL #296107 : 3 

000000006 00 03 FB 00205 CALLS #3, LIBSSIGNAL : : 

02 6 F4 0020C 158 SOBGEQ I, 16 + 2889 | : 

03 11 0020F BRB 17$ : : 

FE4C +H 00211 16$: BRW 6$ : 3 

1€ 68 08 1 002% 17$: BBC #2, FLAGS, 19$ + 3002 F 

20 AE 01AB CB 9A 00218 18$:  MOVZBL QUEUE_NAM+3, DESC : 3005 ; 

24 «AE O1ac §=6CB_Cé@dO OOetE OVL  QUEUETNAM+4, DESC+4 : 3006 : 

20 AE 9F 00224 PUSHAB DESC : 3007 r 

01 DD 00387 PUSHL #1 : r 

00048428 8F DD 00229 PUSHL #295979 : ; 

000000006 00 03 FB O0geF CALLS #3, LIBSSIGNAL : : 

FECA §6 CB 01 DO 00236 19$:  MOVL #1. WORK AREA : 3015 ; 

68 08 88 00238 BISB2 #8. FLAG : 3032 ; 

015¢ CB BS 0023E TSTW  QUEUE_FAB+72 : 3034 : 

04 12 00242 BNEQ : : 

FECA CB DS 00244 TSTL © WORK_AREA : : 

03 13 00248 20$:  BEQL 1$ : : 

0085 31 0024A BRW : : 

20 AE 01BC CB 9A 0024D 21$:  MOVZBL QUEUE_NAM+20, DESC + 3041 ; 

24 AE 01BD C8 9E 00253 MOVAB QUEUE-NAM+21. DESC+4 : 3042 : 

7E 7C 00259 CLRO 0 =(S : 3048 ; 

7E 7C€ 00258 CLRQ = SP) : : 

ED7F 6CF «OOF 00250 PUSHAB  P : F 

34 AE 9F 00261 PUSHAB DESC ; F 

7E 01 7D 00264 MOVa. #1, (SP) : ; 

000000006 00 08 FB 00267 CALLS #8, SYS$GETDVIW : ; 

57 50 DO 0026E VL —-RO,_STATUS_ : : 

7E 7C 00271 CLRQ 30s = §P) ; 3053 | : 

7E 94 00273 CLRL. (SP) ; F 

FD77 cr OF 06 75 PUSHAB P.AAI ; 3 

— 7C 00279 CLRQ  =(SP) : ; 

01 DD 00278 PUSHL #1 : | : 

000000006 90 07 FB 09 7D CALLS 4&7, SYSSGETSYIW : ; 

6 50 00 00 Bs MOVL RO, STATUS ; : 

48 57 €9 00287 BLBC STATUS_1, 25$ : 3055 : 

45 56 £9 00 BA BLBC STATUS@2, ; : 

07 00000000' EF €9 908 D BLBC DEVCHAR2, 22$ : 3058 : 

37 00000000° cf 8 00294 BLBS CLUSTER MEMBER, 25$ : : 

66 ; A 00298 228:  BICB2 #8, FLAGS > 3061 : 

0114 CB 9F 0029 PUSHAB QUEUE FAB : 3062 ; 

68 1 FB O2A CALLS #1, SYSSCLOSE ; ; 

24 0 E O2A BLBC ; : 

0128 «(8 42 BF 90 O02A8 MOVB #66, QUEUE_FAB+23 : 3064 ; 
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0114 CB 9F OO2A PUSHAB QUEUE_FAB 3 3065 : 
000000006 00 o re 65 CALLS i, YSSOPEN : ” ; 
0164 g ef B PUSHAB QUEUE_RAB + 3068 ; 
6A 1 FB 02C CALLS #1, SYSSCONNECT : ; 
O¢ 0 E 0 ¢ BLBS = R $ : | F 
0 o1ec «6C¢ BO 0 Cb 23$ MOVL QUEVE_RAB+8, RO + 3069 ; 
50 011c «= ¢8 Bd 0 cc 24$: MOVL QUEUE_FAB+8, RO + 3071 : 
20 AE 1A DO 00202 25$:  MOVL #26, DESC : 308 F 
24 =OAE GE 3 0206 MOVAB RESNAM DESC+4 : 308 : 
6E 24434244 BF DO OO2DA MOVL_  #608387658, RESNAM ; 3084 : 
04 AE 01Bc C8 16 8 00261 MOVC3 #22, QUEUE_NAM+20, RESNAM+4 : 3085 ; 
7E 7C O02E8 CLRQ = =( SP) ; 3091 : 
7E 7C€ OO2EA CLRQ  =(SP) : ; 
000000006 ai 9F 00 EC PUSHAB QUEUE _MASTER_AST : 
E D4 O02F CLRL (SP) : 
38 «AE OOF ~O02F4 PUSHAB F 
7E 0208 8F 3C 002F7 MOVZWL #520, =(SP) : 
OOAS CB OF O02FC PUSHAB QUEUE_FILE_LKSB : 
05 DD 00300 PUSHL #5 ; 
7E D4 00302 CLRL = (SP) : 
000000006 00 OB FB 00304 CALLS #11, SYSSENQ ; 
57 50 DO 0030B MOVL RO, S 1 : 
04 57 €8 00308 BLBS TATUS_1, 26$ + 3092 
50 57 DO 00311 MOVL TATUS-1. RO ; 
04 00314 RET F 
20 AE 1E DO 00315 26$: MOVL #30. DESC : 3097 
1A AE 4B434F4C = BF. s«iD-:00319 MOVL #1262702412, RESNAM+26 : 3098 
7E 7C 00321 CLRQ = =(SP) : 3103 
7E 7C 00323 CLRQ  =(SP) : 
7E 7C 00325 CLRQ  -=(SP) ; 
38 AE OOF 00327 PUSHAB DESC : 
7E D4 0032A CLRL 0 = (SP : 
0080 CB OF 905¢¢ PUSHAB QUEUE_LOCK_LKSB : 
05 oD 003 0 PUSHL #5 : 
01 DD 00332 PUSHL #1 : 
000000006 00 08 FB 00 CALLS #11, SYSSENQW : 
56 50 DO 00338 MOVL » STATUS ; 
08 56 &9 0033 BLBC STATUS 2, 27$ : 3104 
56 0080 CB 3¢ 00341 MOVZWL QUEUE COCK LKSB, STATUS_2 : 
04 56 EB 00346 BLBS STATUS_2, 28S ; 3105 | 
50 56 oO 00 49 27$: MOVL  STATUS~2. RO : | 
4 0034C RET ; 
68 01 88 00 4D 28$:  BISB2 #1, FLAGS : 3106 | 
02 =A 06 £1 00350 BBC #6. FLAGS+2, 29% > 3113 
FE20 C A cE 0 35 NE GL a DIAG_TRACE+32 : 3115 | 
0689 8F 7 Bi 00 2 29%:  CMPW TATUS_1, #1673 : 3117) 
OA 13 0 61 BEQL : | 
08 AB 99F 00363 PUSHAB THIS _SYSID > 3119 | 
FO9F C9 9} re 3 96 CALLS #1, QARM_START_EXISTING_FILE ; | 
68 E1 00 6p 30$: BBC #2, FLAGS, 31$ : 3131 
FC3E C9 FB 0371 CALLS #0, COLD_START_NEW_FILE : 3122 | 
11 00376 BRB 32§ ; | 
| 


4 
INI TQUEUE Initialize system job queue file 1Sese -1984 :10:3 AX-11 Bliss-32 V4.0-74 Page 70. Qut 
v04=001 12-8 08- 1 3be 99: 48:2 3 JOBCTL.SRCJINI TQUEUE .B32; 3 . (11) | v0. 

FaCS 9 0 F 78 31$: CALLS COLD START _EXISTING_FILE : 3123) 
ff 2 ae i 
GE 2443424 BF Hi 5 MOVL Resid, DESCe RES NAM ; 139, 
04 AE 8 A D6 C MOVL TALS. SYSID, RESN + 3131) 
08 AE rs 8 1 MOvW = THIS” SYSID+4, ar eNAnes : 
7E 7C 36 CLROQ SP + 3138) 
000000006 cr OF : 9 PUSHAB REMOTE _BLOCKING_AST : 
—E 7¢ Hi CLRQ = =(SP) : 
E D4 2 A CLRL = = (SP) : 

38 F Ag PUSHAB DE ; 
7E 404 BF 3¢ : A MOVZWL #1028, -(SP) : 
OA0 c8 F AA PUSHAB REMOTE _REQUEST_LKSB F | 
DD 00 AE PUSHL # : 

01 DD 0038 PUSHL #1 5 

000000006 00 08 FB 00 Bg CALLS #11, SYSSENQW : 
08 59 0038 BLBC  STATUS_3, 33$ + 3139 
30 00RD £8 3C 003BC MOVZUL REMOTE “REQUEST aLKSB, STATUS_3 3 | 
07 0 €8 003C1 BLBS  STATUS—3, + 3140 
0968 BF 50 681 003C4 338:  CMPW © STATUS73, 73488 : | 

07 12 003¢9 BNEQ 5$ : 
38 A 01 00 003CB 34$:  MCVL #1, QUEUE_REFERENCE_COUNT t 3146) 
50 01 00 003CF MOVL #1. RO : 3148 

04 00302 35%: _— RET ; 


; Routine Size: 979 bytes, Routine Base: CODE + 0E08 | 


he REI RNS SE ENG es NR PO Ppa = a a aE ace PRC RE Pens OR OT ee Pad TB 


H 4 
INI TQUEUE Initialéz st b fil AX-11 B - 
iayt aléze system job queue e 1$-3 oo] "1 1384 9: 19:3 Bliss-32 V 


JOBCTL.SRC TNT TOUEUE. 3 2:3 


: 2120 149 1 END 
; $384 3393 0 ELUDOM 
-EXTRN LIBSSIGNAL 
$ PSECT SUMMARY 
; Name Bytes Attributes 
: COMMON 50 : NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(2) 
; CODE 4571 NOVEC.NOWRT, RD - _EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; DATA 8 NOVEC, WRT, RD »NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
age, ae ee et ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 183 0 1000 00:01.4 


Information: 1 
Warnings: 0 
Errors: 0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$: INI TQUEVE/OBJ=OBJ$: INITQUEVE MSRC$: INI TQUEUE/UPDATE=(ENHS: INI TQUEUE) 


Size: 4464 code + 5139 data bytes 
ime: 0 Peel 


Slaseed’ Time: 03:49 
Lines/CPU Min: 29 be 
Lonones/CPU-ia: 46398 
"Y Used: 574 pages 
os ation Complete 
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